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INFOGRAMES Éq'i 


Disponible sur THOMSON casselte et disquette, 
AMSTRAD cassette et disquette, 
ATARI ST, MSX2, IBM PC et compatible, 
AMSTRAD PC 1512. 
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Notre couvertui 


Un numéro presque entière- 
ment dédié aux amateurs de 
programmes ; du Basic, du 
Logo, de l’'Assembleur... bref, 
du tout bon ! 


Vous aimez les jeux ? Dédale 
exercera voire sagacité sur un 
cousin du Taquin, mais en plus 
sioux. Vos disquettes sont 
vacillantes ? Un utilitaire peut 
arranger cela. Vous attendiez 
la version TO8, T09+ du 
moniteur désassembleur ? 
Dont acte ! Créez donc votre 
propre Jeu de caractères écran 
pour Paragraphe. L'actualité 
du PC éducatif vous intéresse ? 
Consultez nos pages TEO PC. 
Enfin, vous trouverez, entre 
autres, un montage pour 
partager un ou deux LEP entre 
plusieurs micros. 


Continuez à nous envoyer vos 
œuvres, elles intéressent 
vivement les autres lecteurs de 
TEO, et en plus elles sont 
rémunérées. À bientôt ! 


Jacques ELTABET. 


ATTENTION : TEO a déménagé. 

Nouvelles coordonnées de la 

rédaction : 

5/7, rue de l'Amiral-Courbet 

94160 Saint-Mandé 

Permanence téléphonique : 

au (1) 43.98.22.22 

lundil et mercredi 

après-midi uniquement. 

TEO est une 'pubieaton de la Société Near : Siège social : 10, rue 


Sully 69006 Lyon - Service Abonnement : (ia, 3, rue des 2-Places, 
69009 Lyon, tél - 78.83.84.84 - Adresse de la rédaction et de la publicité : 


16l : 48.98.22. 22 - Directeur de la publication : Henri-Pierre Hiblot - Rédac- 
feur en chef: Jacques Eltabet - Rédaction: François Dupin - Chef de 
fabrication : Jean-Luc Roumegou - Conception etréslleation : Créabilis, 10, 
rue Sully, 69006 Lyon - Maquettiste : Eric Frey - Photocomposition : Nelh 
Fortemps - Ont participé à ce numéro : H. Blanchard, J. Lecour, T. Noël, 
Miquelrd, Club Micro Thomson, Jode, M Petremann, M. Weissgerber, M. 
, E. de Kermel, M. Aomar, L. Simon et J, Chandru - imprimerie S.N'LL 
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CHRONIQUES REPAIRE : REPAIRE : 
Créacarac Code postal 
REPAIRE : TECHNIQUE : REPAIRE : 
TestDISK Montage Course à la vache 
AVENTURE : TECHNIQUE : TRIBUNE 
Malédiction Les nouvelles 
de Thaar fonctions 
du moniteur TO9+ 


15 


TEOPC REPAIRE : LOGICIELS 


18 38 47 


REPAIRE : REPAIRE : 

Moniteur Logo 
desassembleur 

Basic 512 


22 39 


REPAIRE : TECHNIQUE : LIBRAIRIE 
Dédale Tout sur 
l'extramoniteur 
(suite et fin) 


Fil 
entropie 


Fil baisse les prix, de 
40 % en moyenne, sur 
une trentaine de ses 
produits : Colorpaint, 
Studio, Mallette Créa- 
tion (Studio + Color- 
paint), Praxitèle, 
Caractor |!, Prolog, 
Comptabilité Générale, 
Paye, Facturation, 
Stocks, Malette Ges- 
tion, Choplifter, Thres- 
hold, Miner 2049 er, 
Polyphonia, N° 10/ 
Micro-Scrabble/Planète 
inconnue, Blitz, Color- 
calc, Mallette profes- 
sionnelle (Colorcalc, 
Graphique, Statisti- 
ques), Graphique, 
Statistiques, Scriptor, 
Paragraphe et Fiches 
et Dossiers. 

Le tableur Colorcalc + 
est un tableur couleurs 
sur disquette 3"1/2 
pour TOB et TO9+ 
proposée à moins de 
400 F. On y remarque 
la possibilité de changer 
la police de caractères 
dans les cellules. 
Accompagné de la 
disquette de “9 templa- 
tes”, des modèles de 
gestion prêts à l'emploi. 
11 vous en coûtera 
moins de 600 F. Vous 
pourrez alors vous 
initier aux joies des 
calculs de ratios d'acti- 
vité, des soldes inter- 
médiaires de gestion, 
d'amortissements 
d'emprunt et autres 
réjouissances du même 
tonneau. 

La mallette communica- 
tion est composée de 
deux logiciels complé- 
mentaires : Micro-ser- 


E .# 


CHRONIQUES 


ENGREF. 


veur et Praxitèle. 

Le Micro-serveur peut 
gérer une centaine 
d'abonnés qui pour- 
ront : 

— consulter un journal 
composé de 85 écrans 
graphiques et/ou 
textes que vous pour- 
rez facilement installer 
avec "l'éditeur de 
structures” ; 

— utiliser la messagerie 
avec boîte aux lettres 
et rubrique de petites 
annonces protégées 
par mot de passe. 
Chaque B.AL. peut 
contenir 16 messages 
qui seront détruits 
après consultation ; 

— télécharger des 
programmes en Basic, 
des écrans ou des 
textes si les correspon- 
dants possèdent un 
micro avec émulation 
minitel. Le possesseur 
du micro-serveur a la 
possibilité de modifier 
à tout moment : les 
écrans, la structure du 
journal, la liste des 
abonnés, le message de 
service de la message- 
rie. Les statistiques de 
connexion lui donne- 
ront, à la demande, le 
nombre de connexions 
d'abonnés, d'émission 
de messages et de 
messages purgés après 
consultation. 

Praxitèle permet de 
créer des images aux 
normes Télétel, compo- 
sées de graphismes et 
de textes en huit ou 
seize couleurs. 

Pour TOB, TO9, TO9+ 
(avec le modem Thom- 
son), deux disquettes 
et deux manuels pour 
moins de 700 F. 


Philippe ROUYER {mention spéciale} ; Jean-Henri CANTON (Fil d'or) : René MONORY ; 
Yonnick TOUTAIN (Fi d'argent} ; Joël BLALE {Fil de bronze). 


Fonction 
FIL 


Créée sous l'égide de la 
Fondation de France, la 
Fondation Fil est 
parainnée par la DGT 
et les sociétés BULL et 
DIGITAL EQUIPEMENT 
FRANCE. 

Elle a trois objectifs : 
favoriser le 
développement de 
l'industrie française, 
aider les créateurs 
indépendants français 
à développer leurs 
logiciels et à accéder 
aux marchés français 
et internationaux, et 
permettre une 
meilleure connaissance 
des conditions de 
réussite des nouveaux 
logiciels mis sur le 
marché. La Fondation 
n'a pas pour objet la 
promotion d'un 
Standard particulier. 
En 1986 la Fondation 
a lancé deux actions : 


— En prenant pour 
base l'introduction de 
l'informatique dans 
l'enseignement, elle a 
lancé en Septembre 
1986 un “concours” 
destiné à récompenser 
les meilleurs 
didacticiels dans le 
cadre du plan IPT 
(Informatique pour 
tous). 

— Elle a réalisé un 
“livre blanc” sur la 
création de logiciels de 
façon à bien poser les 
problèmes qui freinent 
l'essor de la création 
logicielle en France. 

À la suite d’une table 
ronde, composée de 
Jean-Hervé Lorenzi, 
président de la 
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fondation et directeur 
des nouvelles 
Technologies de la 
Sari, de François Gerin, 
directeur délégé aux 
vidéocommunications 
de la DCT, Georges 
Seban, directeur 
délégé de Bull MTS, 
François Robineau, 
PDG de FIL, Bernard 
Vergnes, directeur 

énéral de Microsoft 

rance, Jean Dragne, 
directeur juridique de 
l'institut National de la 
propriété Industrielle, 
Jean-Louis Courleux, 
journaliste à France 
Inter et enfin Daniel 
Garric, journaliste au 
point, les résultats du 
concours ont été 
prononcés, en la 
présence de Mr 
Monory, ministre de 
l'éducation nationale. 
Le Fil d'Or a été 
attribué à Jean- Henri 
Cantoni pour son 
logiciel CEE, 
géographie de la 
communauté 
européenne. qui s'est 
taillé un franc succès 
en glissant un mot à 
l'oreille de Mr Monory 
qui lui a permis 
d'obtenir, un 
nano-réseau. Du moins 
l'a-t-il promis. Le Fil 
d'argent a été attribué 
à Yannick Toutain pour 
son logiciel BIZOUK, 
grâce auquel on 
explore un domaine à 
trois dimensions dans 
lequel évoluent des 
objets et des 
personnages. Le Fil de 
bronze a été attribué à 
Joël Blaize pour son 
logiciel DESSECRI, 
destiné aux enfants en 
cours d'apprentissage 
de la lecture. 


L'ensemble 
MO5NR 
Thomson- 
Leanord 


Un poste de travail 
NANORESEAU plus 
intégré, comprenant 
un moniteur couleur 
“Data grade” munis 
d'une prise Jack qui 
sert à alimenter l'unité 
centrale en 22 Volts 
continu. La 
connectique 
NANORESEAU 
LEANORD est intégrée. 
Le tout est livré avec 
un crayon optique, un 
cable de quatre mètres 
pour utilisation en 
nanoreseau et une 
prise multiple pour 

4 629F HT (5 490F 
TTC). 


Caractéristiques 
techniques 


Microprocesseur 
6809E à 1 MHz 
Mémoire Morte : 64Ko 
comprenant les Basic 
1.0 et 128 de 
Microsoft (idem MO6). 
Mémoire vive : 128Ko 
non extensible (idem 
MOB6). 

Ecran : 8 modes 
d'affichages (idem 
MO6 

Crayon optique 


(résolution 320 * 200). 


Synthétiseur musical 
intégré de 4 voix sur 7 
octaves. 

Connecteurs 
d'entrée/sortie. 

A l'arrière : 

Un bus d'extension 





MOS NR 


multi-usages. 

Un connecteur 
d'alimentation. 

Deux prises DIN 5 
broches pour se 
connecter au réseau. 
Un bloc d'interrupteur 
de configuration pour 
numéroter le poste de 
travail. Un cordon avec 
prise SCART (péritel). 
À droite. Un 
connecteur DIN pour 
lecteur de cassette 
(type MOS5). Un 
connecteur DIN pour le 
crayon optique. À 
l'avant Deux prises 
Sub-D 9 points pour 
manettes de jeu ou 
souris. Sur le dessus un 
connecteur pour 
cartouches 


programmes (type 
MOS). 


Stages en 
Val-de- 
Marne 


Le département de 
formation en 
informatique de 
l'université Paris XII - 
Créteil, organise dans 
le cadre de la 
formation continue des 
stages d'initiation et de 
perfectionnement en 
informatique et en 
bureautique, dont la 
prochaine session 
débutera en Avril 
1987. 


En informatique, le 
catalogue de formation 
offre notamment des 
stages de découverte 
de l'informatique, 
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d'utilisation des 
tableurs et 
gestionnaires de 
fichiers ainsi que des 
modules d'apprentis- 
sage de la 
at ap 

n bureautique, les 
stagiaires pourront, 
après une formation 
sur un logiciel de base 
de traitement de texte, 
étudier divers logiciels 
professionnels de leur 
choix. Pour tous 
renseignements : Tél 
48 98 44 O2 ou 48 98 
91 44 poste 2483. 


CHRONIQUES 


Liste des programmes disponibles 
existants sur Quick Disk 


(1 disk) (1 disk) 


INFOGRAMES 


SORTILEGES 
MICROSCILLO 


KARATE 

“DIEUX DU STADE 1 

LAS VEGAS 

DIEUX DU STADE 2 

PAYS DU MONDE 
MEURTRES S. L'ATLANTIQUE 
VAMPIRE 


L'HERITAGE 2 
L'AFFAIRE SYDNEY 
TNT 


CORPS HUMAIN 
DOSSIER BOERHAAVE 


FIL 


AUNWAY 2 

Ne 10 

GREEN BERET 
BEACHHEAD 
SUPERTENNS 
VOL SOLO 


LORICICIELS 
BACTRON 

MGT 

MO = MO5-MO6 


TO = TOB-TO7/70 
Rappel : les QDD ne tournent ni sur TO9 ni sur TO9+. 





Thomson 
au Sicob 


Thomson sera présent 
pour l'édition de 
printemps du Sicob qui 
se tiendra au Parc des 
Expositions de Villepin- 
te. Sur le stand, il y 
aura une présentation 
de la gamme des 
moniteurs profession- 
nels ainsi que des 
cartes graphiques au 
format PC qui préfigu- 
rent la nouvelle gamme 
de micros 16 bits 
compatibles. Quelques 
autres périphériques 
devraient également 
voir le jour. 


(1 disk) (1 disk) 


COKTEL VISION 


JAMES DEBUG TO7/70 

POSEIDON TO7/70-MOS 
MALEDICTION DE THAAR T07/70-MO5 
CAP SUR DAKAR T07/70-MOS 


FREE GAME BLOT 


AMERICA'S CUP 

BLUE WAR 

BUGS BUSTER 

JUMP FOR SURVIVAL 
JEUDE MARELLES 
MONOPOLIC 

ROMULUS, ROME ET MOI 
HISTOIRE DE THEATRE 
LETIGRE ET LES CHEVRES 
TRESOR DU PIRATE 

WAR GAMES 

BUDGET FAMILIAL 
CARTOON MAKER 

LOTO 

ALARME 

1000 BORNES 

AFFAIRE ENOR 

LA CUISINE FRANCAISE 
SPEEDWAY 


Source SIMIV 
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Testdsk 


Ce programme initialise des disquettes défectueuses en 


gérant les secteurs abimés et installe le DOS. 


Description et fonctionnement 


du programme 


Il toume en Basic 1.0 ou 128 avec un DOS simple ou 


double densité, le programme faisant la distinction. 


Ligne 20 Le Poe fait de la place pour le tableau 


+ stockera le DOS (5 pistes de 16 secteurs). 


Ligne 30 Prise en charge des erreurs (voir lignes 3000-7140). 


CIC DE CET CUS ET T ETC UCI 
"+ t 
* #  Progranne d'initialisation À 
Ÿ de disquettes deffectueuses À 
| et d'installation du DOS 1 
l Î 
INB, Les lignes qui ne sont pas 
MULTIPLES DE 10 , sont des 4 
9° Lignes de remarques et ne sont} 
11 °# pas obligatoirement a taper , 
12 °% aucun 6070 ou GOSUB ne les + 
13 '# pointent . Î 
14 "4 | 
15 ’# 408 lignes de programme Î 

L] 

| 

} 


2 
3 
4 
ù 
ë 
7 
8 


4 
3 
» 
3 
? 


_ 


16 ’t = 183 lignes d'ordres 

17 4 +225 lignes de remarques 

18 "HN ENEATEENNEE 
19 ? 

20 CLEAR 15000:DIN A$(4,16) 

1.2 

22 * 15000 = 19 Kocts pour le tableau 
23 * A$ + les autres chaines 

24 * A$(4,16) : 5 pistes 18 secteurs de 
25 ? stockage de DOS 

267 

30 ON ERROR GOTO 3000 

31 ? 

32 * Traitement d’erreurs initial 
Ho 

40 B=2:LOCATE ,,1 

41" 

42 * locate ,,1 = erreur pour Basicl 
43 * B=2 : Basic128 

44 * retour on error B=1 : Basicl 

45 ? 

39 D0S=2:DENSITY 3,2 

ol * Density 3,2 = erreur pour le 

92 ? DOS simple densite 

53 * DOS=2; double densite 

J4 * retour erreur D0S=l:5inple densite 
sh} 

60 CLS:SCREEN 7,0,2 

70 FOND=0: BORD=6 

1e 

72° couleur du bord et du fond de la 


ne 40 Détermination du Basic: s'il “n'avde pas” 
ue ÀTE ,,1, c'est du Basic 1 (B=1), sinon c'est du Basic 
rt “1 Déteminaton du DOS : simpte ou double densité 
en écrivant une instruction spécifique au DOS double densité. 
Le programme saisit ensuite le numéro de la disquette à 
vérifier ainsi que la densité désirée. La disquette est 
ensuite passée au crible. 
En VERIFYON, DSKINI est lancé et en cas d'erreur, la 
disquette est irécupérable. On repasse ensuite en VERI- 
FYON pour tester deux secteurs importants : le secteur de 
gestion de l'occupation des blocs {suite 8 secteurs), secteur 
2 piste 20, et le premier secteur du fichier DIRECTORY. 
En cas d'erreur, pour ces deux secteurs, la disquette est 
irécupérable. 


73 * partition de l'ecran 

74 * 

80 CMIN=7:EMIN=S: CMAX=31 22 LMAX=54: GOSUB 
2370 

81 ? 

82 ? CMIN = colonne de gauche 

83 ?* CMAX = colonne de droite 

84 ? EMIN = ligne du haut 

83 * LMAX = Higne du bas d’une partition 
86 * Gosub 2379 ecriture d’un rectangle 
87 * Gosub 2300 effacement en neme temps 
88 ? 

90 COLOR 2:LOCATE 3,1:PRINT "TEST SUPPOR 
T MAGNETIQUE JL° 

100 COLOR 7:LOCATE 3,2:PRINT “Basic 1"3M 
ID$(" 28",B#2,2);" Dos “;MID$(" 
SiapDoub",DOS14, 4);"le densite" 

191 ? 

102 ” les aid$ evitent un IF pour 

103 ” ecrire Basic 1 ou 128, sinple ou 
194 * double 

105 ? 

H0 LOCATE 3,3:PRINT "Initialisation , M 
ise a jour BITMAP* 

120 CHIN=7:LMIN=37:CMAX=112:LMAX=178: G0S 
UB 2370 

139 CMIN=119:LMIN=37:CNAX=312: LMAX=1782: 6 
OSUB 2370 

140 CMIN=7:LMIN=181:CHAX=312: LMAX=194: 60 
SUB 2500 

130 COLOR 3:LOCATE 1,23:PRINT "(Arret 0 
u montez la disquette puis-> ":LOCATE 38 
123 

IS 

152 ?’ le 2ese locate est obligatoire 

153 * pour voir le curseur : la rethode 
1584 * pour effacer successivement les 
135 * BOX font du noir/noir ; le PRINT 
156 * a donc un espace de plus pour 

157 * remettre la couleur et l’on 

156 ?” adresse dessus 

159” 

160 AS=INPUTS$ (1): IF A$="A" OR Af="a" THE 
N CLS:CLEAR 300:END 

170 CMIN=7:LMIN=5: CMAX=2712:LMAX=54: GOSUB 
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On teste ensuite les secteurs 4 à 16 de la piste 20. Au 
premier secteur abîmé, il reste : (nbre de secteurs bons'4* 
densité) places pour l'inscription des fichiers. 
Le programme teste ensuite les autres secteurs {40 pistes de 
16 secteurs), le bloc impair est constitué des secteurs 1 à 8, 
le bloc pair des secteurs 9 à 16. Siun secteur est inutilisable, 
le bloc concemé est alors considéré comme inutilisable, 
l'unité de gestion du DOS étant le bloc, Si les secteurs DOS 
sont bons, une disquette source est lue de la manière 
suivante : lecture des 40 premiers secteurs de 255 caractè- 
res (5 blocs) en double densité, et des 72 premiers secteurs 
de 128 caractères (9 blocs) en simple densité. Ces secteurs 
sont ensuite écrits sur la disquette testée, 
Voilà, votre disquette est prête à l'emploi. 

Jean Lecour. 


2300 

180 COLOR 2:LOCATE cool à "Caracteris 

tiques disquette :* 

190 COLOR 7:LOCATE 3,2: FRNT "Disquette 
(0,1,2/8): 

200 LOCATE 3,3:PRINT “-Densite (1,2 
ju k 

210 IF DOS=1 THEN LOCATE 2b,3:PRINT "1" 

220 CMIN=7:LMIN=181: CMAX=212:LMAX=198: 60 

SUB 2300 

230 COLOR 3:LOCATE 3,23:PRINT "Confirmez 
(RON nr 

240 LOCATE 26,2:D1$=INPUT#(1) 

241 ? 

242 * saisie du numero de la disquette 

243 ? a tester 

244 ? 

250 IF DI$<"0" OR DI$>"3" THEN 240 ELSE 

PRINT DI$:DI=VAL (DIS) 

260 IF D0S=1 THEN DE=1:60T0 290 

2610 

262 ?* DOS simple densite : 

263 ? densite imposer 

264 ? 

270 LOCATE 26,3:DE#$=INPUT#(1) 

F1; ea 

272 * saisie de la densite desiree 

15 75 ess 

280 1F DE$<"1" OR DES)"2" THEN 270 ELSE 

PRINT DE$:DE=VAL (DES) 

290 LOCATE 26,23: A$=INPUTS(1) 

309 IF A$="N° OR A$="n" THEN 140 ELSE PR 

INT "D" 

319 IF DOS=2 THEN DENSITY DI,DE 

311 ” 

312 ? nice a la bonne densite en cas 

313 * de DOS double densite 

314 ? 

320 LOCATE 1,5:PRINT USING "Blocs # Koct 

5"3DE 

S21 ! 

322 * indication de la taille d’un bloc 

323 * unite de gestion du DOS 

324 * ensenble de B secteurs 

325 * 1 Kocts en simple densite 8128 
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328 ” 2 kocts en double densite 88255 

327 ? 

330 LOCATE 3,7:PRINT "0123456789" 

340 FOR 1=0 TD 7 

330 LOCATE 1,1+B:PRINT I 

360 NEXT I! 

370 LOCATE 2,17:PRINT "Piste :" 

380 LOCATE 2,19:FRINT "Secteurs: 

390 LOCATE 16,5:PRINT “Observations: " 

400 A=DSKF (DI) 

401 ? 

402 * instruction pour verifier : 

403 ” lecteur en aarche 

404 * disquette non formattee dans la 

405 ” densite desiree 

406 

410 CHIN=7:LMIN=181:CNAX=312:LNAX=1984: 60 

SUB 2300 

420 SCREEN ,,1:LOCATE 1,23: COLOR 1:PRINT 
“Disque deja formate (Cdont (Alrret : * 

sLOCATE 37,23 

430 A$=INPUTS(1):1F A$="A" OR A$="a" THE 

N 140 ELSE SCREEN ,,2 

440 CHIN=7:LNIN=181: CMAX=512: LNAX=194: 60 

SUB 2300 

450 LOCATE 15,7:COL0R 7:PRINT “-Verifyof 

f Dskini";DIS$ 

460 VERIFYDFF:DSKINI D1:VERIFYON 

461 ? 

462 * passage en verifyoff pour 

463 * initialiser la disquette qui ne 

464 * le pourrait pas etre en verifyon 

465 ? 

470 ON ERROR GOTO 4000 

471? 

472 * traitement erreur pour 

473 * test secteur BITMAP ou FAT 

474 ? 

480 LOCATE 15,8:CDLOR 6:PRINT "-Test sec 

teur BITNAP":COLER 7 

4Bi ? 

482 ” ce secteur est essentiel : c’est 

483 ? lui qui gere l'occupation des 

484 ? blocs : chainage des blocs d’un 

485 ? fichier et pour le dernier de la 

486 * chaine nombre de secteur occupes 

487 * dans celui-ci 

488 ? 

490 1=20:J1=2:J2=2:GDSUB 2000 

300 ON ERROR GOTD 5000 

501 

502 ? traitement erreur ler secteur 

503 ” de La DIRectory 

504 * 

510 LOCATE 15,9:COL0R 6: PRINT “-Test sec 

teur DIRectorie” 

sl * 

312 * ce secteur est essentiel : si le 


2.4! 


513 * reste est bon ,cela ne sert a 

#14 ? car le dos ne pourrait y inscrire 
515 * Le non du fichier 

Si6 ? 

620 1=20:91=3:92=3 ‘ler secteur dir 

s21 

522 * [= nusero de piste 

523 * di et J2 bornes des secteurs 

524 ? a tester sur cette piste 

525 ? 

530 ON ERROR GOT 5190 

S31 ? 

#32 ?* traitenent erreur des autres 

533 * secteurs de la DIRectory 

534 * 

540 1=20:d1=4:d2=8:60SUB 2000 ‘autres 
541 ? 

542 * premier bloc de la piste 20 

543 ? 

990 IF INDB=1 THEN CP=5: INDB=0 ELSE CP=6 
560 GOSUR 2210 

870 1=20:J1=9:J2=16:G0SUB 2000 ’autres 
71 ? 

J72 ? deuxieme bloc de la piste 20 

#73 ? 

580 IF INDB=1 THEN CP=5:INDB=0 ELSE CP=86 
690 GOSUB 2210 

609 ON ERROR GOTO 6000 

601 ? 

602 * traitement erreur des autres 

603 * Secteurs 

604 ? 

810 LOCATE 15,12: COLOR 2:PRINT "-Test au 
tres secteurs" 

620 INDD=0: INDDDS=0 

630 FOR 1=0 TD 59:1F 1-20 THEN 680 

631 ? 

632 * de la piste 0 a la piste 39 

633 * exclue La piste 20 deja testee 

634 ? 

640 Ji=1:J2=8:60SUB 2000:60SUB 2210 

641 ? 

642 * premier bloc de la piste 

643 

650 IF IX}4/DE THEN 670 

bi ? 

652 ? arrive a la piste 2 double densite 
655 ? a la piste 4 sinple densite 
654 * et au secteur B ,l°on sait si 

655 ? le DOS sera inplantable sur 1a 

656 ? disquette 

657 ? 

660 LOCATE 16,15:1F INDD=0 THEN COLOR 5: 
PRINT "DOS Installable": INDDOS=1 ELSE CO 
LOR 1:PRINT “DOS Ininstallable" 

670 di=9:92=16:60SUB 2000:60SUB 2210 

671 ? 

672 * deuxieme bloc de la piste 
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673 ? 

6B0 NEXT I:COLOR 2 

690 LOCATE 16,17:PRINT "Place disponible 

700 LOCATE 16,20:ATTRB 1,1:PRINT DSKF(DI 
}:"Kocts":ATTRE 0,0 

710 IF INDDOS=0 THEN 1019 

1 S 

712 * si le 005 n’est pas inplantable 

713 * une autre disquette ? 

714" 

720 CMIN=7:LMIN=181 : CMAX=312: LMAX=194 : 60 
SUB 2300 

730 LOCATE 2,25:COL0R 3:PRINT “Voulez-vo 

us Le DOS D/N : ":LOCATE 27,23 

740 A$=INPUT#(1):1F A$="N" THEN 1010 

750 IF A#${}"0" THEN 720 

760 CMIN=7:LMIN=5: CNAX=312: LMAX=34: GOSUB 
2300 

770 LOCATE 2,2:C0LOR 2:PRINT "COPIE DU D 
05 ":MID${"  GiapDoub",DE#4,4):"le dens 
ite" 

780 CMIN=7:LMIN=37 : CMAX=312: LNAX= 178: 606 
UB 2300 

790 LOCATE 2,6:PRINT “Inserez une disque 
tte avec":LOCATE 2,7:PRINT “le bon DDS - 

=) "sLOCATE 16,7 

800 A$=INPUTS(1) 

810 VERIFYOFF:ON ERROR GOTO 7009 

820 FOR I=0 TO 4/DE:LOCATE 6,1+8 

830 FOR J=1 TO 16 

840 A$(I,d)=DSKI$(0, 1,9): PRINT "."; 

850 IF I=4/DE AND J=8 THEN J=16 

851 ? 

852 * lecture de la piste 0 

855 * a la piste 2 en double densite 

854 ? à la piste 4 en sisple densite 

855 ? et la derniere piste jusqu’au 

856 * secteur B 

857 ? 

860 NEXT J 

870 NEXT I 

88C ON ERROR 6DTD 7109 

890 LOCATE 2,13:PRINT "Inserez la disque 

tte testee -} ":LOCATE 32,13 

900 A$=INPUTS (1) 

910 FOR I=0 TO 4/DE:LOCATE 6,1+14 

920 FOR J=1 TO 16 

930 DSKO$ DI,1,d,A$ C1, d)2PRINT *. "3: 

940 1F I=4/DE AND J=B THEN J=16 

941 ? 

942 * ecriture des secteurs stockes 

943 ? 

950 NEXT J 

960 NEXT I 

970 A$=DSKIS (D1, 20, 2) 

980 B$=CHR# (254) 

990 IF DE=1 THEN AS=CHRS10)+B9+B8+08+88+ 


B$+B$+B5+B8+B$+RIGHTS (AS, 118) ELSE A$=CH 
RS(0)+B8+0$+B$+BS+BS+RIGHTS (AS, 249) 

991 ? 

992 * inscription sur le secteur BITNAP 
993 ? de l'occupation des à premiers 

994 ? blocs en double densite ou des 9 
905 ? presiers blocs en siaple densite 
908 * par le DOS 

97.” 

1000 DSKO$ DI,20,2,A$:LOCATE 2,21: ATTRB 
1,1:PRINT DSKF(DI)s"Kocts":ATTRE 0,0 
1010 ? FIN TRAITEMENT 

1020 CMIN=7:LMIN=181:CMAX=312:LMAX= 1984: 6 
OSUB 2300 

1030 LDCATE 2,23:PRINT "Un autre essai 0 
u disquette (D)/N : “:LOCATE 57,23 

1040 A$=INPUT#(1):1F A$="N" FHEN CLS:CLE 
AR 300:END 

1050 GOTO 50 

1060 ? 

2000 *TEST 

2010 EDCATE 12,17:C0L0R 2: PRINT USING "4 
#': I: COLOR 7 


2020 LOCATE 3,20:PRINT " É 
2030 LOCATE 3,21:PRINT ë 
2040 BLOC=1#2+(J1-1) 88 

2041 


2042 * bloc 1 = secteur 1 a B piste 0 
2043 ” bloc 2 = secteur 9 alé piste 0 
2044 * bloc 5 = secteur 1 a B piste 1 
2045 2, 

2050 *TEST SECTEUR 

2060 INDB=0 

2070 FOR J=d1 TD J2 

2080 A$-DSKIS (DI, 1,4) :CP=2 

2081 

2082 * memorisation contenu secteur 
2083 ? 

2090 DSKDS DI,1,d,A$ 

2091 ? 

2092 * essai de reecriture du secteur 
2093 ? 

2190 LOCATE (J-1)M0DB+3, {J-1)@8+20: COLDR 
CP:PRINT ".": COLOR 7 

2110 NEXT J 

2120 RETURN 

2130 

2200 AFFICHE BLOC 

2210 IF INDB=1 THEN CP=1 

2220 LOCATE (BLOC MOD 10)+3, (BLOC@10)+B: 
COLOR CP: PRINT ", "2 COLOR 7 

2230 RETURN 

2240 * 

2300 PRINT CHR#(7):" CARRE 

2310 LOR=(LMIN#LNAX) 82 

2320 BOUCLE=LMAX-LOR 

2330 FOR 1=0 TD BOUCLE-1 

2340 BOX (CMIN,LOR-1)-{CMAX, LOR#1) , BORD 


2341 ? 

2342 * CMIN et CMAX sont 1 pixel a 

2343 * gauche et a droite d'un caractere 

2344 ? pour pouvoir effacer puis ecrire 

2345 ? a l'interieur de la partition 

2348 * et eviter la couleur unique sur 

2347 * une matrice de 8 pixels 

23848 ” 

2330 BOX (CMIN+1,L0R-1)-(CMAX-1,LDR#1),F 

OND 

2360 NEXT ! 

2370 BOX (CMIN,LMIN)-{CMAX, LMAX) , BORD 

2380 RETURN 

2390 

3000 * ON ERROR INIT 

3010 IF ERL=40 THEN B=1:RESUME 50 

3011 ? 

3012 ? erreur sur locate ,,1 -» Basici 

3013 ? 

3020 IF ERL=50 THEN DOS=1:RESUME 80 

3021 ” 

3022 ? erreur sur density 3,2 -} DDS 

3025 * siaple densite 

3024 * 

3030 IF ERR=76 OR ERR=53 THEN RESUME 440 

3040 SCREEN ,,1:COLDR 1 

3041 ? 

3042 ” erreur sur le lecteur ou la 

3043 ? disquette 

3044 * 

3050 LOCATE 16,7:PRINT “ID ERREUR DISQUE 

3060 LOCATE 16,9:PRINT "Verifier le lect 

eur" 

3070 LOCATE 16,11:PRINT "Verifier la dis 

quette" 

3080 CHIN=7:LMIN=181:CMAX=312: LMAX=194: 6 

OSUB 2300 

3090 LOCATE 3,23:PRINT "Et relancer --) 
"aLOCATE 18,23: A$=INPUTS (1): SCREEN ,,2 

3100 CHIN=119:LMIN=37:CMAX=312:LMAX=178: 

GOSUB 2300:RESUNE 140 

3110 ? 

4000 *ON ERROR BITMAP 

4019 SCREEN ,,1: COLOR Î 

4020 LOCATE 15,9:PRINT "Disquette irrecc 

uperable"* 

4030 LOCATE 15,11:PRINT "Secteur BITMAP 

HS":RESUME 1010 

4040 * 

9090 *ON ERROR DIR 1ER SECTEUR 

5919 SCREEN ,,1: COLOR 1 

9020 LOCATE 15,10:PRINT “Disquette irrec 

cuperable" 

2030 LOCATE 15,12:PRINT “ler secteur DIR 

HS":RESUNE 1910 

3040 * 

9100 ON ERROR DIR AUTRES SECTEURS 
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REPAIRE 


8110 LOCATE 16,10:COLCR S5:PRINT "DIR en 
partie H5" 

9120 LOCATE 16,10:COL0R S:PRINT "DIR en 
partie HG" 

3130 LOCATE 18,11:PRINT (9-3) #4$DE:"Fich 
iers possibles" 

5131 ? 

9132 * une partie de La DIRectory est 
5133 ‘ HS mais il reste 4 ou B places 
5134 * d'inscription de fichier a la 
6135 ” directory par secteur bon 

5136 ? 

5140 J=J2:RESUME 2100 

5190 ? 

6000 *ON ERROR AUTRES SECTEURS 

6010 SCREEN ,,1 

6020 INDB=1 

6030 B$=DSKI${DI, 20,2) 

6040 B$=LEFTS (B$, BLOC+1) +CHRS (254) RIGHT 
$(B$, LEN(B$)-BLOC-2) 

6081 ? 

6042 ? le premier octet du secteur 2 
6043 * piste 20 est a zero 

6044 ?” L’octet 2 gere le bloc ! 

6045 ? 

6048 * octet &HFF (255) bloc libre 

6047 * octet &HFE (254) bloc occupe 

6048 * par le systeme D05 , DIR et 

6049 * maintenant par 1/0 erreur 

6050 DSKO$ D1,20,2,B$ 

6060 INDD=1:LOCATE 16,13:CDL0R 1:PRINT " 
Bloc HS" 

6070 RESUME 2100 

6080 

1000 *ON ERROR DDS LECTURE 

7001 ? 

7002 * la densite n’est pas la bonne 
7003 * mais aucune verification si 

7004 ?* c’est bien le dos que l’on 

7005 ?* charge 

7006 ? 

7010 CMIN=7:LMIN=181: CMAX=512: LMAX=194:6 
OSUB 2500 

7020 LOCATE 2,23:C0L0R 1:PRINT "ERREUR D 
E LECTURE DOS --} ":LOCATE 28,23: A$=IN 
PUT# (4) 

7030 CMIN=7:LMIN=181:CMAX=312:LMAX=194:6 
OSUB 2300:RESUME 720 

7040 ? 

7100 *ON ERROR DDS ECRITURE 

7110 CNIN=7:LMIN=181:CHAX=312:LMAX=194:6 
OSUB 2300 

7120 LOCATE 2,23:C0L0R 1:PRINT "ERREUR D 
E ECRITURE D0S --} ":LOCATE 28,23: A#$<IN 
PUT$(1) 

7130 CMIN=7:LMIN=181: CMAX=312:LMAX=19426 
DSUB 2300:RESUME 890 
7190 
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AVENTURE 


Pour échapper à la malédicion de Thaar 


Depuis quelques temps déjà, vous errez 
au milieu des ruines lourdes de menaces 
et des carcasses abandonnées, car sans 
doute la Malédiction de Thaar pèse sur 
VOUS. 


Vous voulez arracher Sapho à ses griffes 
et obtenir des renseignements de Tina la 
punk, du loubard et des autres individus 
qui hantent ces lieux de cauchemard, 
éviter le pire face au squelette, à la 
chauve-souris ou aux mort-vivants, alors 
écoutez bien ceci : 


Ne négligez pas les objets que vous 
trouverez dans les souterrains (points 
lumineux). N'hésitez pas à les offrir à 
ceux que vous rencontrez, surmontez 
votre peur et retenez bien les messages 
que vous entendrez. 


Recherchez d'abord dans la ville Tina la 
punk qui sera votre alliée au cours de 
votre aventure, à condition que vous 
sachiez flatter sa coquine coquetterie. 
Elle vous indiquera l'emplacement d'une 


aitel leg, EL 
PERSONNELLES 
ET PROFESSIONNELLES 


PÉRPHÉFIQUES 

e Éirenalon MS 

e Extension Ingrustatian 

s Pxt, 15 KO TOT 

« Ext, 4e KO TOUT . 

« Ent, 259 KG TOE 

« Sous 

« Comiriiaur communication 

» Cobret TÉLÉTEL 

# Lecteur disk 320 KO B 

« Lectet disk 320 TOB 

s Lecteur diex 640 TÙ 4, 

« Monteur monoch, 

«+ Mondieur douleur Haute salu tion 
« Imprimante courrier ÉD colons 
«= Imprimante Impact 40 colonnes 


carcasse de voiture. Vous ne pourrez y 
pénétrer que vous avez pas l'objet qui 
fendra la vitre. 


Vous visiterez ainsi quelques carcasses 
avant de vous trouver face à la 
monstrueuse araignée. Seule, une 
pince-monseigneur pourra la faire 
fléchir. Vous rencontrerez plusieurs 
araignées avant d'affronter le 
mort-vivant. Pas de panique, lui aussi est 
paumé. Si vous avez un jean pour cacher 
Sa vilaine nudité, offez-le lui sans regret, 
sinon ce sera un combat sans merci, de 
même qu'avec ses frères. Ils vous 
dirigeront vers l'endroit où se situe 
l'indispensable cric. 


Dans la ville, vous rencontrerez aussi une 
chauve-souris qui en a assez d'être 
chauve, un loubard qui craque pour sa 
banane rebelle et un squelette qui joue 
aux osselets. Tous trois vous enverront à 
la même station de métro. N'oubliez pas 
cette information. 


Quelques messages décodés pour vous : 


251, bd Raspail, 75014 Paris. M° Raspail. Tél : 43.21,54.45 
50, rue de Richelieu, 75001 Paris. Tél : 42.96.93.95 
Métro Palais-Royal. Du lundi au samedi de 9h30 à 19h. 


DE L'INITIATION AU PROFESSIONNEL ! 


1590 F 
2490 F 
160F 
2 990 F 


CLLUIL DRE 

» Digiskaston 

« Extenalon mariptim 

s Hop, couleur Chimie 20 


JEUX 

« L'ANaire Sydr4y (C/D) 
« Airbus (K} 

ACTE 

+ Conirble série [K} 


L'EETRS 

285 F 

380 F 

380 F 
1680/1865 F 

LL 
145/195 F 
195/249 F 
160/220 F 
160/220 F 
175/225 F 
249/295 F 
245/295 F 

299 F 
139/220 F 
195/245 F 
160/195 F 
195/249 F 

195 F 
195/249 F 


© Deux ou stade 2 (C0) 
« Foclbail (©) 

«+ Green term 40/0} 

« Lin Voga (CD) 

CR ALL ICT SCHL" À 

« Dieux da ls glluse \C/D} 
« Monopoly [CD 

e Cmaga plante re (Ci) 
« Pack Fil (CD) 

a Passagers du verd {C/D) 
s Sepistis |C/D) 

e Scrabble [C/ËM 

«= Sorcery (C/D) 
CRT LCE Let rh) 

e Super eos [C) 

- Vampire {C/D} 


FRANKLIN-ROOSEVELT Frank, l'un des 


roux sveltes 
PALAIS-ROYAL Goût divin 
MARCADET- Marc a des 
POISSONNIERE poissons niais 
MONTOGALLET Sur la plage 

je l'ai posé 
PARMENTIER Vas donc patate 
MENILMONTANT Allez-y les 

petits gars 


PIGALLE Tous les cochons 


Avant de repartir dans l’antre de la cité 
abandonnée, sachez que si vous devez 
récupérer les objets que vous 
rencontrez, il ne faut pas vous charger 
trop, sinon vous ne pourriez plus les 
emporter. Une solution : faire des caches 
dans un lieu où se trouve déjà un objet, 
noter ses coordonnées et y retourner au 
besoin. 


Bonne chance, et gardez-vous des 
mauvaises rencontres | 


COKTEL VISION 


l'espace le plus 
micro de Paris ! 


Prix spéciaux 
collectivités-écoles 


185F 
145/195F 


CRETE) 
CR ACIE TA OT AN Ce71e)) 


EDUCATIFS 

CECILE ESC) 
CRALAETITEAC Ie) 

« Dictée Electronique (C) 
e Logo (K) 

CALAT-LICE (+71 °)) 

CACIUUON CT, PUR Cor} 
e Polni Bac Math 2 (C/D) 
OAUUU ETC CURE N(o7)) 
e Polhl Bao Français (C/D) 


Ras F 
195F 
160F 
790 F 
299 F 
249/380 F 
249/390 F 
249/380 F 
249/390 F 


UTILITAIRES 

e Ansdssaus (CD) 
CR Et 

+ Colonpalnt {K) 

# Comptabilité |0} 

© Muliiphun TOë 

+ Fachurailon (D) 

a Parsgraphe (D) 

» Faye (D) 

CAL ICE LS] 

e Sudlo + colorpaini IK) 
e Fupar Busities TO {D} 


COUCE RS 
590 F 
590 F 
990 F 
690 F 
990 F 
890 F 
890 F 
LL'ES 
ua 
590F 





BON DE COMMANDE à adresser à VIDEOSHOP, B.P. 105 - 75749 PARIS Cedex 15 


PRENOM 


ADRESSE 


VILLE 
a 
«CODE POSTAL 


10 


Je régle par 


QC Bancare ON CCP 


DEMANDE DE DOCUMENTATION 


Je possède un micro de type 


Je joins 3 timbres ] a 20 F pour a. a envoi 
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Désignation des articles demandés 


Frais de port . 
TOTAL TTC . 


Logiciels" 15F 
Matériel 





Téléphone : 3615 - Code d'accès : CHOK. Tapez : TEO* 


puis ENVOI. Vous découvrirez la PAGE D'ACCUEIL. 
Tapez SUITE pour accéder au SOMMAIRE. 


| s VISITE QUILEE FR LE TEU | 
a nu de 







té Eu 





VISITE GUIDEE PETITES ANNONCES 


Perdu ? Tapez F1 Voulez-vous vendre ? SET 
puis ENVOI acheter ? échanger du RESTE 
TOAFPOLE PAG: LES PAGES ARRIVENT matériel, des logiciels 4 FARENN Een Lie 





Adressez votre petite 
annonce el lisez celles des 
autres utilisateurs de micro. 


F2 F7 E5ÿ 


‘A ACTUALITE COURRIER 
| Pour vous tenir Ecrivez à la rédaction de TEO. 
* au courant, tapez F3 


puis ENVOI : les news 
de TEO. F- e 













DIALOGUE | , MESSAGERIE 
Dialoguez en direct avec la 1h  ENITES Lei 
messagerie, Ouvrez une boîte = 
aux lettres pour recevoir des LL in | 
BOUTIQUE messages personnels et diffé- Ê 
Retrouvez le logiciel rés (en indiquant vos nom, 
que vous aimez avec la numéro de département et 


recherche multi-critères. code pour fermer voire BAL). 


A bientôt sur TEOMATIC 








TELETEO 


Ses fonctionnalités Pour utiliser le Minitel 


La connexion : 


Avec TELETEO, connectez votre micro-ordi- Q vec da Éà I Q C O U ! € LU r 


nateur au Minitel. 


La couleur: sur votre micro-Thomson 


Les pages-écran du Minitel s'affichent en 
couleur sur votre moniteur couleur. 


Does 


La sauvegarde : 
Les pages transmises par Minitel peuvent 
être stockées sur cassette ou disquette. 


Le confort : 


Le clavier de votre micro remplace le 
clavier du Minitel, 










La rapidité : 


Vous gagnez du temps pour consulter les 
pages Minitel stockées sur microl 





L ire) EL” 
















UE , 1 B| EF 


Le câble TELETEOse _ 
branche sur la prise 
magnéto-cassette 





de votre micro. La F iche pratiq ue 


por TELETEO est composé : 


branchement e d'un côble ; 
simultané sur Minitel £ L 
et sur le magnéto. e d'une K7 pour MOS5, TO7 + 16K TO7/70, TO9, ou d'une 


disquette 3 pouces !2 pour TO9, ou d'une disquette 5 pouces 
V4 pour MOS, TO7 + 16K. TO7/70: 


e d'une nolice explicative. 





BON A DECOUPER 
OUI, je désire acquérir TELETEO 
O1 Cassette pour MOS, Je vous adresse cl-joint Nom 
107 + 16K T07/70,TO9, mon règlement 
au prix de 100 FF TIC. par chèque à l'ordre Prénom 


O Disquette 3 pouces 12 de MEDIAVENTURE. 
pour TO?, au prix de Bon à retourner 


140 FF TIC. 

O Disquette 5 pouces 4 D chèque 
pour MOS, TO7 +16k  ! ordre de 
TO7/70, au prix de MEDIAVENTURE, à TEO, 

130 FF TIC. 26, rue Beaubourg, 


+ Port : 25 FF. 75008 PARK. Ville 


Adresse 








Code postal 








LE PC 


MICRO-HORIZONS 


Education, PC, micro institutionnelle, langages, Tribune du didacticiel, Intelligence artificielle, technique, programmation... 


Les nouvelles 
technologies 
de l'information 


Cette publication de l'OCDE (Organisation de Coopéra- 
tion et de Développement Economique) montre com- 
: ment les NTI ont commencé d'imprégner le secteur de 
l'éducation, sous l'influence d'obiectifs, de mesures et 
de stratégies d'application qui varient beaucoup selon 
les pays. Ce rapport foumit une première évaluation des 
tendances actuelles et analyse les incidences de ces 
technologies sur les modes d'apprentissage et les systè- 
mes d'enseignement. 
Au travers des 130 pages, il s'agit de résumer les 
travaux effectués par les experts de ces pays depuis 
près de 5 ans. On y voit déjà transpirer les recherches 
actuelles Sur le rôle de ces nouvelles technologies dans 
l'amélioration de l'enseignement et de l'apprentissage 
dans ces différents pays. On lira en particulier avec 
intérêt les 20 dernières pages qui interrogent très forte- 
ment sous la question “vers quels futurs ?” 
Ce document est vendu 80 F à la librairie de l'OCDE (2, 
rue André-Pascal, 75775 Paris cedex 16). 


Les nouveautés 
Borland 


Pour le premier semestre de 1987, Borland annonce 
plusieurs nouveaux produits très attendus. 


Tout d'abord le Turbo-Basic, compatible avec GW-Basic 
est annoncé comme très rapide. H est récursif, utilise 
entièrement le co- processeur 8087 et contient un édi- 
teur intégré. I! se place en concurrent direct du Quick 
Basic de Microsoft. Il possède les variables locales, les 
tableaux dynamiques, les instructions structurantes Whi- 
le, DO et Select Case, etc. 


EUREKA ensuite qui permettra de résoudre les équa- 
tions même complexes évitant au lycéen, à l'étudiant et 
à l'ingénieur d'être obligé d'accompagner son micro- 
ordinateur d’une calculatrice et d'un papier-crayon pour 
les résoudre sur le coin de la table. Enfin, le nouveau 
Toolbox pour Turbo-Pascal donnera aux ingénieurs et 
aux chercheurs scientifiques des outils d'analyses 
numériques qui étaient auparavant résérvés aux grands 
systèmes ayant accès aux bibliothèques Fortran. Il faut 
enfin noter que Borland est le premier à casser ses 
propres prix quand it s’agit de permettre à des établisse- 
ments scolaires de s'équiper avec ses logiciels. Les 
réductions peuvent aller jusqu'aux trois quarts de la 
valeur de base. C'est certainement une méthode intelli- 
gente et efficace pour lutter contre le piratage. Tous les 
renseignements complémentaires peuvent être obtenus 
Chez Borland (Les Postillons des Bruyères, 65, rue de la 
Garenne, 92318 Sèvres cedex). 


La recherche en 
Intelligence artificielle 


C’est un recueil des principaux articles parus dans “La 
Recherche” sur le sujet. I! part des définitions et des 
premiers exemples de jeux de l'esprit pour terminer sur 
les problèmes posés par la conception des systèmes 
experts. Entre ces deux extrémités, sont présentées les 
études sur les différentes catégories de reconnaissan- 
ces : formes, écriture et parole. 

Cette présentation débouche tout naturellement sur les 
questions plus théoriques de représentation des 
connaissances, d'apprentissage et de robotique évo- 
luée. On y trouve enfin, la présentation du langage 
Prolog, comme exemple de la logique nécessaire en 
intelligence artificielle. Ce petit livre n'a pas la prétention 
de remplacer des ouvrages de cours, maïs il a le mérite 
de permettre une vision d'ensemble correcte de ce 
domaine d'avenir trop souvent réservé à quelques spé- 
cialistes. Ce sont d'ailleurs certains d'entre eux parmi 
les plus célèbres qui sont signataires des chapitres de 
ce ivre après avoir été ceux des articles correspondants. 
On trouve Alain Colmerauer, le créateur de Prolog, 
Hervé Gallaire, le patron de l“European Computer 
Industry Research Centre”, les chercheurs du CRIN de 
Nancy, du laboratoire de Recherche Informatique (LRI) 
de l'université Paris-Sud (Orsay) et ceux du LAAS du 
CNRS de TOULOUSE. 


Lef’$ Go 
Au delà du simple jeu 


Les programmes d'échecs ne se comptent plus, mais 
c'est une des premières fois ou la logique informatique 
ose s'attaquer à un autre jeu de reflexion, le Go. 

Les combinaisons possibles dans ce jeu étant beaucoup 
trop nombreuses, il ne S'agit pas là d'un logiciel permet- 
tant de jouer contre l'ordinateur, mais plutôt d'un outil 
d'apprentissage du jeu, C'est ce côté “professeur” qui 
fait son originalité. On peut ainsi apprendre les règles du 
jeu et les premiers rudiments de stratégie. On peut 
ensuite suivre pas à pas des démarches plus élaborées 
au travers d'exemples issus de parties de grands maitres 
et enfin jouer sur l'ordinateur. Le programme archive les 
coups, permet de les revoir, de les corriger dors de les 
analyser pour ainsi apprendre à mieux jouer. C'est 
simple, et la documentation jointe est claire et. en 
français. Let's Go ne coûte que 500 F. Est diffusé par 
PARIS, international (13, rue Lacordaire , 75015 
PARIS). 


Ibis 
voir en 3D 


Représenter des volumes, des objets dans l'espace, sur 
la surface plane d'un tableau noir n'est pas toujours 
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facile. Souvent, les élèves éprouvent des difficultés à 
percevoir la troisième dimension d'une perspective, Ibis 
aide l'élève à comprendre, assimiler et utiliser le principe 
de la perspective. 1 l'habitue à se représenter tout le 
volume d'un objet à partir d'une simple projection en 
perspective cônique. C'est un outil avec lequel il peut 
exercer son imagination, sa faculté de recréer la profon- 
deur sur un schéma ou sur un dessin en perspective, 
L'utilisation de ce logiciel par un élève est des plus 
simple. H lui suffit de savoir se servir du crayon optique 
et de savoir lire. H lui faut aussi apprendre petit à petit à 
voir en 3D. Une série d'exercices se succèdent. Ils 
utilisent deux de représentation : des vues d'un 
objet et des scènes représentant un observateur regar- 
dant un objet. Ces exercices sont de trois types : 


— Déterminer à partir d'une scène ce que voit l'obser- 
vateur. 

— Déterminer le bon observateur (parmi trois possibles) 
en connaissant ce qu'il voit. L 
— Possibilité de simuler une rotation autour de l'objet 

observé pour le reconnaître. 


Afin de préparer des exercices adaptés à ses élèves, 

l'enseignant dispose d'un module spécifique lui permet- 

tant sans trop de difficuftés : 

— De créer un nouveau volume en définissant ses 
sommets et ses arêtes. 

— De créer les vues et les scènes qui vont servir à 
construire les exercices. 


Ce logiciel est directement utilisable en mathématique 
et en sciences physiques, mais également en dessin et 
en géographie. Il est disponible au CNDP en version 
Nanoréseau, 


Secos 


Secos est une banque de données économiques et 
sociales écrite par un enseignant, pour des enseignants. 
Ces données couvrent la plupart des domaines abordés 
en ee de sciences économiques et sociales dans les 


cées. 

& y trouve des tableaux de valeurs sur la démographie, 

les productions diverses, les revenus, l'emploi, le com- 

merce extérieur. Ces chiffres sont aujourd'hui à jour et 

un suivi est prévu pour les réactualiser d'année en 

année, L'enseignant qui le souhaite peut le faire lui- 

même ou avec ses élèves, ce qui peut être un excellent 

exercice pour comprendre les bases de données. Ces 

fichiers sont accompagnés d’un ensemble de program- 

mes de traitement de données adaptés à une utilisation 

scolaire : 

— Calcul sur les lignes et les colonnes d’un tableau 
(sommations, pourcentages, moyennes). 

— Calcul des taux de croissance, d'indices. 

— Simulation suivant les valeurs de la périodicité des 
séries chronologiques. 

— Réalisation de graphiques (courbes et diagrammes) 
représentant n'importe quel type de données. 
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— Edition de tableaux de toutes dimensions soit à 
l'écran soit sur l'imprimante. 

— Utilitaires d'entrée de données permettant à l'utilisa- 
teur d'enrichir la base ou de l'actualiser. 


Ce logiciel est accompagné d'une documentation très 
bien réalisée d'une cinquantaine de pages. Le fonction- 
nement du système y est décrit en détail avec de 
nombreuses figures. De nombreux exemples d'utiisa- 
tion y sont clairement décrits. 


Reflex 
un gestionnaire intelligent 
de base de données 


REFLEX est un gestionnaire de fichiers. H sait créer la 
structure d'une fiche de manière simple et interactive 
grâce à son éditeur plein écran, saisir, consulter, modifier 
ou supprimer une fiche et rechercher et extraire des 
données suivant plusieurs critères. 
Ces fonctions sont effectuées plutôt rapidement dans la 
mesure où REFLEX fonctionne entièrement en mémoire 
vive. En contrepartie, il vaut mieux avoir 640 Ko plutôt 
que les 384 Ko nécessaires annoncés. Cette partie de 
gestion de fichiers est limitée à 65500 enregistrements 
pouvant contenir chacun jusqu'à 128 champs de 254 
caractères. Ce n'est pas au niveau des champions du 
genre, mais c'est en général largement suffisant. 
La convivialité du logiciel, déjà très forte dans cette 
remière partie, l'est d'autant plus quand on rentre dans 
les modules d'exploitation de cette base. La succession 
de menus déroulants, l'utilisation des touches de fonc- 
tion et le multifenêtrage sont utilisés par REFLEX. L'ap- 
prentissage est donc assez facile surtout que les trois 
disquettes sont accompagnées d’une documentation 
en français de 500 pages assez bien faite et contenant 
de nombreux exemples d'utilisation. 
Les possibilités de la touche F10 ne font qu’ajouter un 
peu de facilité à ce logiciel. Elle permet de trouver une 
aide appropriée dans presque toutes les situations. 
La possibilité de représenter ces données de cinq 
manières différentes avec la cohabitation à l'écran de 
deux de ces formes donne enfin à REFLEX toute sa 
puissance d'utilisation. Le travail en simultané sur ees 
deux zones d'écran donne souvent une bien meilleure 
vision du problème étudié. 
Les deux premières vues possibles sont assez classi- 
ques. li s'agit de la forme Fiche donnant un enregistre- 
ment et de la forme Liste qui est un tableau ou chaque 
colonne correspond à une rubrique et chaque ligne à un 
enregistrement. Cette dernière est bien pratique pour 
faire défier rapidement l'ensemble du fichier suivant 1 
ou plusieurs critères de sélection. 
Les deux premières vues 


possibles sont assez clas- *Catherine 


j "ani 
siques. it s'agit de la forme Modif Impr/fichier  Enreg Recherche __ Fiche 


Fiche donnant un enregis- 
trement et de la fome Fm 
Liste qui est un tableau ou Date: Mai-85 
chaque colonne corres- Uendeur: ÆLLTETE 
pond à une rubrique et 
chaque ligne à un enregis- 
trement. Cette dernière 
est bien pratique pour 
faire défiler rapidement 
l'ensemble du fichier sui- 
vant 1 ou plusieurs critè- 
res de sélection. 
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Fonfrix 
démultiplie les possibilités 
de l'imprimante 


Ce logiciel permet de gérer à l'écran... et sur l'impriman- 
te, textes et dessins. C’est un bon outil pour créer des 
affiches de différentes tailles et enrichir les documents 
informatiques de titres et de mises en page originaux. 

Le système lui-même gère une quinzaine de polices de 
caractères ainsi qu'un éditeur graphique assez perfor- 
mant. 13 disquettes complémentaires (FONPAK) peu- 
vent compléter ce logiciel de base lui apportant chacune 
7 à 8 polices de caractères supplémentaires et une série 
de petits dessins utiles allant des icônes à la schémati- 
que électrique, en passant par la symbolique chimique, 
la notation musicale, l'architecture et tous les éléments 
pour construire un portrait-robot. 

FONTRIX possède un puissant éditeur pour construire, 
transformer, créer des caractères définis librement dans 
une matrice pouvant atteindre la taille de 32 points*32 
points. L'écran de travail est modulable entre la taille de 


Me Ole Bngligh Eype marne GIE 


ax 


Several point sizes of Easy Reading Ei(-2) BU 


l'écran de l'ordinateur lui-même jusqu'à 23 fois celle-ci, 
lEfaut préciser que la gestion en est bien difficile dans ce 
cas extrême. Ce logiciel est capable de relire tous les 
fichiers texte à la condition qu'ils soient stockés sous 
forme ASCII. Le passage de ce texte sur l'écran graphi- 
que de FONTRIX permet de l'enrichir et de le compléter. 
Le passage sur l'imprimante se fait tel quel, avec gros- 
sissement et/ou réduction horizontale et/ou verticale ou 
même avec rotation de 90. Toutes ces propriétés sont 
intéressantes et simples à mettre en oeuvre dès que 
l'utilisateur a réussi à dépasser la principale difficulté 
constituée par une documentation qui est à la fois très 
touffue et en anglais ! 

Fontrix est capable d'imprimer une page et à la rigueur 
un document à condition de le découper en pages 
autonomes les unes des autres. Dans ces limites, il est 
d'un bon rapport qualité-prix puisque le logiciel de base 
coûte environ 1 800 F, prix auquel il faut ajouter 330 F 
par volume supplémentaire de FONPAK. Ces produits 
sont diffusés par le Réseau Planétaire - BP 3 - 43260 
St-Juiien-Chapteuit, 
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intégré assorti d'une séries de fonctions logiques, 
mathématiques, financières et statistiques. Là encore, la 
touche F10 fait des merveilles en aidant à une bonne 
utilisation de la fonction CROSSTAB qui plote la plupart 
des analyses statistiques. 

La demière vue, l'Etat, sert à la mise en forme de l'état 
récapitulatif du résultat avant la sortie sur l'imprimante. 
REFLEX fonctionne sans problème avec une carte CGA 
ou avec une carte de type Hercules. Il peut toumer avec 
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une configuration bi-disquette, mais la présence d'un 
disque dur donne tout de même beaucoup plus de 
confort. La principale ombre au tableau est son carac- 
tère monofichier limitant donc ses possibilités d’utilisa- 
tion, Ce manque est par contre comblé par le prix du 
logiciel dont la version la plus complète, enrichie par les 
utilitaires de Workshop ne coûte que 2 400 F TTC. 
Borland, Les postilons des bruyères, 65, rue de la 
Garenne, 92318 Sèvres Cedex. 
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Le plan COMETT 


C'est un programme européen de coopération universi- 
tés-entreprises pour la formation aux technologies avan- 
cées. 


Ce programme décidé en 1986 doit se dérouler pour sa 
première phase sur trois années, de 1987 à 1989. II est 
composé de 4 parties complémentaires. 

Le volet A porte sur le développement d'associations 
universités-entreprises pour la formation. Les actions 
correspondantes peuvent se vivre au niveau local, mais 
la présence de plusieurs pays est un facteur favorable 
pour obtenir des subventions. Il s'agit d'aider les entre- 
prises à aborder l'avenir avec un personnel mieux formé. 
Le volet B concerne les échanges transnationaux d'étu- 
diants.et de personnels d'université et d'entreprises. 
est prévu 10 000 bourses pour des étudiants qui pour- 
ront ainsi aller poursuivre une partie de leur cursus 
universitaire dans un auîre pays de la communauté 
européenne. Sont également prévus 350 bourses pour 
des universitaires et autant pour des personnels d'entre- 
prises qui souhaiteraient participer à des travaux dans 
un autre pays pendant une durée de 3 à 12 mois. 

Le volet C porte sur la conception et l’expérimentation 
de projets conjoints universités-entreprises dans le 
domaine de la formation continue aux technologies 
avancées. 

Ces projets devront, entre autres, permettre la diffusion 
rapide des résultats les plus récents de la recherche et 
du développement. Ils devront en plus aider à valoriser 
le potentiel européen de formation avancée, 

Le dernier volet consiste à développer les systèmes de 
formation multimédia aux technologies avancées. Il 
s'agit de bâtir des cursus utilisant au mieux les moyens 
existants comme vidéo-cassettes, vidéodisques, radio- 
télévision, informatique interactvie, didacticiels.… et de 
commencer à intégrer des techniques qui seront fortes 
demain comme les mémoires optiques, les réseaux 
cêblés ou les systèmes experts. Les projets qui s'inscri- 
ront dans ce programme COMETT recevront des aides 
matérielles et financières de la part de la communauté 
européenne. La date limite de dépôt pour les projets est 
fixée au 15 juillet 1987. Des renseignements compk- 
mentaires peuvent être obtenus à l'Assemblée perma- 
nente des Chambres de Commerce et d'Industrie - 
Direction formation-emploi - Programme COMETT, 45, 
avenue d'léna, 75116 Paris. 


De nouveaux 
utilitaires 
pour Turbo-Pascal 


A.B.Soft intemational diffuse tous les mois une disquette 
bon marché (250 F) contenant jeux et utilitaires divers 
dont nous avons déjà parlé dans TEO. Les disquettes 
17A et 17B offrent pour le coût minime de 500 F une 
inpressionnante série d’utilitaires Turbo-Pascal, Parmi 
ceux-ci, TURBODBG, un debugger symbolique temps 
réel, justifie à lui seul la dépense. donne au langage la 
souplesse nécessaire pour que la mise au point d'un 
rogramme soit moins pesante. Le code source peut se 
dérouler à l'écran pendant l'execution, permettant d'in- 
tervenir sur le contenu des registres et des variables, et 
rendant ainsi la mise au point beaucoup plus conviviale. 
Les adeptes du Turbo-Pascal attendaient cet outil 
depuis le premier jour, et les nouveaux venus au langage 
l'adopteront sans problème dès le début. I! n'est pas 
possible de faire un descriptif detaillé de toutes les 
routines que contiennent ces deux disquettes (plusieurs 
dizaines … petites et grosses). H faut pourtant en citer 


quelques unes plus attendues que les autres. Joystick 
pour les manettes de jeu, Mouse pour la souris et Serial 
pour les entrées/sorties favorisent les connexions exter- 
nes. 

Menus aide à la gestion simple de menus performants 
comme Ptoolw13 le fait pour la création et le contrôle 
des fenêtres. 

Thelp est un astucieux programme résident qui fournit 
une aide toujours accessible qui facilite l'usage de 
Turbo-Pascal, Les débutants y trouveront une raison de 
plus pour se lancer à sa découverte. De nombreuses 
autres routines aident à la gestion de fichiers, à la 
création de bruits et de musique, à la gestion de l'écran 
et à l'interfaçage avec le DOS. Ces deux disquettes sont 
disponibles chez A.B.Soft International, 13 rue Lacordai- 
re, 75015 PARIS. 


Top Key 
un générateur d'applications 
très ouvert 


Top Key est un logiciel organisé autour d'un générateur 
de programmes sources BASIC sous MS/DOS. It est 
produit par la société TOP TOOLS qui est en fait issue 
du service informatique de... la société des ciments 
français qui attaque donc le marché du logiciel avec ce 
produit commercialisé autour de 990 F HT. 

La première qualité de ce logiciel est sa convivialité 
puisqu'il suffit d'une derni joumée pour en découvrir 
“sans douleur” les principales fonctions. Celles-ci sont 
pourtant puissantes puisque TOP KEY ne se contente 
pas de générer des programmes en Basic. H saït égale- 
ment générer des grilles d'écran, des masques d'édition, 
des pages écran mélangeant texte et semi-graphique à 
l'aide d'un éditeur pleine page très simple d'emploi. Il 
intègre en plus un gestionnaire de fichiers qui n'a pas 
grand chose à envier à des logiciels spécialisés dans ce 
domaine. I! peut être utilisé avec profit par tous les 
non-informaticiens qui souhaitent construire sans inter- 
médiaire leurs applications de tous les jours qu'ils pau- 
vent alors agrémenter de leurs “petits trucs”. 1! peut 
également être utilisé par des informaticiens souhaitant 
gagner du temps dans de petits developpements. Le 
gros avantage est dans ce cas de laisser la porte 
ouverte aux nor-informaticiens qui souhaiteraient les 
transformer, facilitant ainsi la communication entre les 
deux catégories de personnes. 

Le gestionnaire de fichiers s'appelle TOP QUID. Il a été 
conçu pour pouvoir être utilisé sans aucune connais- 
sance informatique. A lui seul, il justifie l'acquisition du 
logiciel. Celui-ci a besoin d'une rnémoire minimum de 
256 Ko pour fonctionner correctement. La présence 
d'un disque dur n'est pas nécessaire pour profiter des 
principales fonctions de TOP KEY, hormis bien sûr les 
capacités du gestionnaire de fichiers. Ce logiciel est 
diffusé par la Société TOP TOOLS - CITEC - BP01 - 
78931 Guervile cedex. 


Sanyo 16 Plus 


Sanyo propose une nouvelle machine dont le prix en 
version monodisquette doit se situer sous la barre des 
5000 F HT. Elle fournit en prime avec la machine un 
tableur et un logiciel de traitement de texte, ce nouveau 
venu va paut-être rapidement mordre sur le terrain où 
certains concurrents se croyaient en paix. Affaire à 
suivre doric … 
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Jasmin Turbo HQ2 


TRAN, société française du Var, avec sa série JASMIN 
présente une gamme assez complète de micro-ordina- 
teurs. Du “club” avec un seul lecteur qui coûte 4 700 F 
au “HQ20” avec un disque dur de 20 Mo dont le prix est 
de 12000F. Cette société enrichit ses offres par un 
assortiment de logiciels (DISCOPLUS, Turbo-Pascal, 
GEM) et une souris de bonne qualité. Le modèle que 
nous avons testé est le “JASMIN 640 TURBO HQ2” dont 
le prix est d'environ 8200F TTC avec un moniteur 
monochrome. L'aspect extérieur est classique. Le cla- 
vier est “AZERTY” avec 86 touches, pavé numérique et 
touches de fonction (10) séparés et des indicateurs 
lumineux pour les touches “CAPS LOCK” ET “NUM 
LOCK”. Le boîtier est métallique à ouverture rapide 
donnant un accès facile aux cartes électroniques. lt faut 
noter la présence d’une cié en facade qui autorise la 
protection des fichiers. 
Cet ordinateur est doté en standard d'une souris de 
bonne définition (195 points/pouce) et d’un maniement 
agréable. I! est également accompagné du DOS PLUS 
et de GEM de DRI comme environnement, du Turbo- 
Pascal et enfin d’un intégrateur bureautique sous GEM 
du nom de G-Manager. 
Ce dernier comporte un petit traitement de texte simple 
d'emploi couplé avec un gestionnaire de fichiers qui 
possède un accès muhi-critères. 
Celui-ci utilise un microprocesseur 8088-2 fonctionnant 
soit à 8 MHz soit à 4,77 MHz (commutable au clavier). 
Cette vitesse “turbo” est un des bons points de cette 
machine. La mémoire inteme est de 640 Ko. 6 emplace- 
ments sont disponibles pour autant d'extensions au 
format IBM et un emplacement est également prévu 
Es l'adjonction du co-processeur arithmétique 8087. 
standard, l'appareil est équipé d'une carte CGA 
gérant les sorties vidéo classiques : composite couieur, 
TTL et RGBI. 1 est également équipé d’une carte dite 
“multi 1/0” le dotant d'un port série, d'une sortie parallè- 
le, d'une entrée manette de jeu et d'une horloge/calen- 
drier permanente. I faut enfin noter l'alimentation de 
150W qui doit être réellement bien ventilée si on en juge 
par le bruit de fond. Cet appareil est diffusé par la 
société française (TRAN 53 impasse Blériot à LA GARDE 
83130). Ce micro-ordinateur est diffusé notamment dans 
la chaîne Euromarché. 


Logidoc 


C'est un nouveau service télématique du Centre National 
de Documentation Pédagogique. H s’agit d'une base de 
données documentaires sur les logiciels éducatifs. La 
consultation sur minital en est gratuite pendant toute la 
période de mise en place dont la date limite n'est pas 
encore précisée. Ce service est la première étape de la 
“Méroire de l'éducation” que le CNDP metira à disposi- 
tion du public le 1e septembre 1987. 

Celle-ci sera une banque nationale de références docu- 
mentaires sur les sciences de l'éducation et les nouvel- 
les technologies. Logidoc est consultable sur TELETEL 
2 (3614), sous le nom SUNA qui permet de se connecter 
sur lé SUNIST. L'identificateur du service est alors 
LOGIDOC avec CNDP comme mot de passe. Cinq 
critères ont été retenus pour l'interrogation : la discipline, 
le domaine ou le type de logiciel - le matériel - le niveau 
d'utilisation -le public - le titre . Pour ie contenu de 
chaque critère est proposé sur une page écran qui 
permet donc à l'utilisateur de faire ses choix de manière 
relativement simple. 
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Turbo Prolog 


L'intelligence artificielle 
pour tous 


Après avoir mis Pascal dans toutes les mains, Borland 
va mettre Prolog dans tous les “PC” qui le désirent ! 

Ce langage créé par un français, Alain Colmerauer, est 
aujourd’hui l'une des pierres de base de l'intelligence 
artificielle. Il est construit pour coder la Logique de 
programmation comme l'indique son nom : PROgram- 
ming LOGic. 

C'est l'exemple idéal d’un langage descriptif par opposi- 
tion aux langages procéduraux que sont Pascal, Basic 
ou LSE, Le programmeur y décrit en effet un système de 
déductions à partir duquel le langage utilise les faits et 
les règles qu'il connait pour résoudre les problèmes 
posés. Ce langage n'a pas de normes reconnues et il 
serait donc plus juste de parler des Prolog plutôt que de 
Prolog. Celui-ci a le mérite d'être disponible sur des 
micro- ordinateurs compatibles “PC” alors que les 
autres le sont en ue sur des systèmes plus gros, 
voire sur des systèmes dédiés. Il peut donc permettre 
une approche plus simple de ces champs nouveaux que 
sont l'intelligence artificielle et les systèmes experts. 

Il faut tout d'abord préparer la base de connaissances 
sur laquelle il sera ensuite possible de travailler. C'est 
une base de données organisée en plusieurs couches. Il 
faut définir le domaine de travail constitué par des objets 
dont le type doit être précisé (entier, réel, symbole, 
personne...). H faut ensuite préciser l'ensemble des faits 
connus sur ces objets et enfin énoncer l'ensemble des 
règles permettant de relier ces objets et ces faits entre 
eux. La base ainsi construite est une représentation de 
la connaissance qui peut se schématiser en arbre. La 
puissance de Turbo-Prolog permet alors de dépasser le 
simple SGDB pour permettre de raisonner à partir de 
ces connaissances, 

Une grande attention a été portée Sur la convivialité de 
ce logiciel afin que l’utilisateur puisse se concentrer sur 
le fond sans être embarrassé par des problèmes de 
forme. Les menus déroulants partent des 7 fonctions 
principales (Run, Compile, Edit, Option, Files, Setup et 
Quit}. La présence à l'écran de 4 fenêtres aide à organi- 
ser le travail de manière rationnelle et efflcace. L'une 
contient uri éditeur de textes assez semblable à Words- 
tar pour assurer les saisies. 


Syntaxe BNF pour Turbo Prolog 


Les notations BNF utilisées pour définir la syntaxe de Turbo Prolog sont 
les suivantes : 


<term> Les mots du langage sont entourés de signes < et >. 
{ x } -  Représente le nombre de répétitions de X 


{x indique que X est une option 

x:Y indique qu'il est possible de choisir entre X et Y maïs que l'une 
de ces deux valeurs est obligatoire. 

Noms 


Un <now> en Turbo Prolog est défini par : 


<non> ::= {<letire> =) {<lettre> : <ohiffre> 5) 





<nom> doit commencer par une lettre ou un caractère de soulignement. 
Une liste de noms séparts par des virgules est définie par : 
<liste-noms> : := <nou> : <nom>, <Cliste-noms> 


<varinble> j:= ( >majusoule> :. } (<noa>] 
<fonoteur> ::= <ainuncule> [<nom>] 





Une majuscule (ou un caractère de soulignement) en début indique une 
variable, et une minuscule indique une constante, 


<ilottre> 
<minuseule> 
<majuscule> 


5 <mjusoule> 
.y:s 


<ohiffre> 
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La deuxième affiche des messages d'aide, de repère, 
Ou tout simplement prévus dans l'execution d'un pro- 
gramme. La troisième contient les dialogues nécessaires 
au suivi des tests. 
La quatrième sert à suivre pas à pas le déroulement d'un 
programme, ce qui est un outil indispensable en Prolog 
car il est l'instrument de contrôle du processus en cours. 
Enfin un très gros effort a été fait pour enrichir le manuel 
{de près de 300 pages) de plus de 100 exemples pour 
lesquels on dispose en prime sur la disquette correspon- 
dante des réponses aux exercices proposés (dans le 
sous-catalogue REP). 
Des applications viennent compléter ces exercices. Tout 
d'abord, GEOBASE, une base de connaissance sur la 
France, montre bien le fonctionnement de Turbo-Prolog. 
On peut faire des interrogation en langage naturel pour 
connaître la préfecture du Doubs ou les affluents de la 
Seine. Hanoï permet de décrypter le célèbre jeu avec 
plusieurs niveaux de difficulté et de vitesse, montrant 
bien l'avantage d’un tel langage pour codifier la connais- 
sance. Sanal est un exemple d'analyseur syntaxique. 
Geni est un petit système expert. 
Comme les programmes source de tous ces exemples 
sont disponibles. Leurs fonctionnements en sont plus 
compréhensibles, ce qui permet d'une part de les trans- 
amer et d'autre part de mieux comprendre la logique 
rolog. 
Malgré ces performances, Turbo-Prolog reste assez 
rapide tant à la compilation qu'à l'execution sans gêne 
pour ceux qui sont habitués à des systèmes plus gros. |! 
peut tourner avec 384 Ko de mémoire, mais il est 
beaucoup plus confortable de fonctionner avec 640 Ko 
dans la mesure où le programme est en mémoire vive. 
Ce logiciel peut par contre toumer sans problème avec 
2 lecteurs de disquettes car la taille du fichier importe 
moins ici que les possibilités de raisonnement. Le gra- 
phique tourne bien avec une carte CGA. Turbo-Prolog 
est diffusé par la société Borland (Les Postillons des 
Bruyères, 65, rue de la Garenne, 92318 Sèvres cedex) 
pour moins de 1 000 F HT. 


Sections d'un programme 


<programae > : 
<section> 


:={ <directives> {.{ <section>| » 
t:= <domine> : 
<predicates> : 


<elauses> 

<goal> 

<dstabase > : 
<directive-includa> 





Cette syntaxe est soumise aux limitations applicables aux sections de pro- 
gramme. 


Directives 


<éirective> : := chack_cmplo 
check_deters 

code” <integer> 

<directive-config> 

diagnostics Hi 

<directive-include> : 

nobreak 4 

novarnings 

shortirace 

trace 

trail= <chiffres> 
<directive-config> ::" config “<nondefichier>" 
<directive-include> : := include “<nondefichiar>" 





Dornains 


<ssction-donain> 2: (dlobal] domains { 
<ééfinition-domains> le 
<définition-domain> :;:" <liste-nons> = [reference] 
<menbre-droit > 
‘ file = <liste-nous> 
<type domaine > n 
<nom> « n 
<d-alternatives> 
<type éomain> st €har o 
integer : 
symbol 
string 
real : 
<é-alternatives> 3: <Câ-alternativen> : 
<é-alternatives> <ou> 
<â-alternatives> 
1: <foncteur>[[[<lists-nons>}]}] 


<uenbre-droit> 


<é-nlternatives> 
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Prédicats ef base de données 


<saction-database > 


1: database { <dëf-prédicet> }e 
<section-prédicats > 


:= predicates |<déf-prédicat> } 
u gioba]l 
prédicates | <globel-déf-prédicat> fe 
<giobal-déf-prédicat> : : = <déf-prédicat> [-[<flow 
-spec>|l. (language Clangage>]] 
tt (<flow-paran-liet>} 
35% <flow-paran> ; <flow-paran>, 
<flow-paran-list> 
<fios-paran> 5: 4:0 
<langage> 5: asn: 
<déf-prédicat> 


<fos- spec> 
<flow-paran-]ist> 


& s pascal :fortren 


51% <non> {([<liste-noma>]) {.] 


<section-clauses> ;::= clauses { <clause> | 
<clauso> 1: <fait> . : <règle>. 
<fait> 1:% <relstion> 
<rigie> t:= <relation> <aj> <alternativer> 
<alternatives> 1: <linte-sous-bats> [<ou> 
<listo-sova-buts>) 
= <sous-but> $ 
<mous-but> <et> <jliste-sous-buts> 
1: <relation> $ 
< comparaison : 
<findal]-littéreux>: 
<ilsttre-datatase> : 
<flou-littéral> 
Fer [ <relation> ) : 


<liste-sous-buts> :: 


<sous-but> 


<Crelation> 5i= <non> [({[<)iste-termes>))] 

<findall-Jittére1> : := findall (<varisble>, 

<relation>, <variable>) 

<ilettre-databass> : := asserta ( <fait> ] : 
ausertx { <fait> ) : 
retract ( <fait> ) 

1: free (<variable> ) ! 

bound { <varisble> ) 

5: end G 

tt or 

::= 1 


<flow-littére] > 
<et> 


<ou> 
<i> 


ti: <liste-sous-butn>. 





Termes 


<liste-terten> ::= <Cterme> ; 
<liste-tercen> 
#.= {[<eigre>]<nonbre> 
<echar> 
<liot> 
<atring> 
<variable> 
terne complexe > 
t3* <chiffrea> [. <chiffres> 
{ <exposant> 
ti <chiffre> 
<chiffres> 
C [signe] <ohiffren> 


Ctorte>, 


<termée> 


<nonbre> 


<chiffron>  <chiffre> 
<exposant> 
<sigme> 
<cher> 
<etring> 
<list> 


58 . <cersctère>" : ‘\° <caractére>® 
::m * [ <earactére> [, * 


Puit ) 
[ <liste-éléments> ] 
<liste-élémente> : :" Cterme> [ ! C<terme> ] : 
<torme>, <liste-é)émante> 
<terme conplexe> ; : = <fonoteur>[[[<liste-termneu>}])] 


Com, LE] 


<cowparaison> : := <asvii> <opérataur> <ascii> 

<arithnétique> : 

<comparer> <arithadtique > 

<escii> 11e <foncteur> : <chaïne> : <car> 
<variable> 

<arithoétique> 1: <Cexpeuli> <add> <arithmétique> 


<oxpault> 
ti” <facteur> <muliiplier> 
<arithnétique> : <facteur> 
15” <variable> : 
“nombre > G 
(<arithnétique>) : 
<fonction> (<arithwétique>) 
<cosparer> 58 “mi < >= ><: <> 


<expault> 


<facteur> 


im < 


<ada> st 

<aultiplier> :: div : mog, 

<fonction> t:= aba : cos :sin: tan! 
arctan : exp ; 1n : log ! 
sort 





Limites du système 
D un <nom> ne pas comporter plus de 250 caractères, 
Le] Rp consiantA de Kype Chalne ne pr pes comporter plus de 250 carncy 


D une vanable de chaîne être liée à une chai rtant 
RARE peut ne comportant au 


D les entiers doivent être compris entre -32768 et + 32767. 


D La taille et le format des rbels sont déterininés par La norme imernationale 
DES ociets. L'exposant doit être un entier compris entre -308 et 


© ne peut pas y avoir plus de 50 paramètres par prédicat. 

© il n’est pas possible de donner de but à un sous module, 

D le nombre de fichiers à inclure est limité À 10, 

D la section domains peut contenir jusqu'à 250 noms. 

D le nombre de déclarations de le section domains ne peut excéder 250 
© le nombre maximal de prédicats est de 300, 

D une clause peut comprendre jusqu’à 100 variables, 

O une clause peut comprendre jusqu'à 100 littéraux. 

D un prédicai peut comporter jusqu'à 500 clauses. 











OUVERT DU MARDI AU VENDREDI de 10 h 30 8 13 h et de 15 h à 19 h, LE SAMEDI de 10 h 30319 h 


REVENDEUR OFFICIEL THOMSON 
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OTO9 “+" + moniteur monocrome + imprimante DE OTO8 + moniteur couleur + locteur disquette . 


Cimprimanto thomson ........,... DT08 + moniteur monccromo + locteur Lol ë fn 
Clmognétophone MOS .… | NTERFACE T.V. - OT08 + lecteur disquette + raccord TV... Po 
(| mangétophone T7-8-9 



































































Csouris .............. disquette vierge 31/2 
Crubans encreur pour PR90600 {par 2) .. ..175F D à l'unité 35 F 
Clomtonsion MOB _........................ 1290 F Car 10. mes 310F 
C1 câble imprimanto M6-T8-9-9"+" ......... 170F rt z 8 {a0p) D 
C1 câble imprimante M5-T7 pa D in mener OU 
Clext. 84K (T07-70)..….… . à à 
Cette interfaco va cous permettre do trensformor votro moniteur coulour en T.V. Cassottes vierges C2Ù 
Le DA LE gt) ERP EME ER 490 F Dinterface TV... b s … 1490F O1 les 5 
Clext. 256K (TO8). 1490 F O1 les 10. 
ES 
K7 : cassette — D7 : disquette — M: cortoucho — QD: disquette N0D — M5: MO5 — MB: MO5 — T7 ; T07-70 — T8 : T08 — T9: TO9 — T9 +: T09 + 
Qlunestfairoenor ..…., M5-T7 K7 145F Cipédago. gram.ce2 1 tri. M5-6/77-8 K7 240F 
Clvin sur vin ri K7 285F DOcolorcale ............ T8-9+ D7 395F Dles végas .........,... 17-8-9-9+ K7 265F  Dpédago.gremcmlitri. M5-6/17-8 K7 240F 
Ccofor pack : K7 175F  CDcolorpaint .… 179 M 395F Dlas véges .. T8-9-9+9 D7 299F  Clpédago.grem.cmlian. M5-6/77-8 K7 720F 
Cimeloptica - K7 145F  Ccolorpaint … M5 M 395F Dle5"axe .. T08 D7 240F Upédago. gram.cm2 lan. M5-6/T7-8 K7 720F 
Qdialog.sauterstie ..... M5-T7 K7 100F  Clcomptab. génér. (fil) … T7 D7 495F Ole 5° oxe . M5-6/77-8-9+ K7 180F Cipédago.gram.cm2 tri. M5-6/T7-8 K7 240F 
Ccaiculetrice ..,......, M5 M 195F  Clcomptab génér. (li) .… T8-9-9+ D7 795F Die compie han .. M5 K7 125F  Clpointbecfrençris .... 16-9-9+ D7 350F 
Ctrap … M5 M 195F  Obeachhead ......... M5-8/77.8 00 225F Ole miMionnaire . … M5 K7 150F Clpolitikpoker .…. M5/77 K7 110F 
Oltrap ......... er] M 195F  Cldemonia .. ... ..... M6/18-9-9+ 07 220F Ole minctaure ......... M5-6 K7 140F  Clportefeuilleboursier .. T8-9-9+ D7 880F 
Ccarnetadresses .. M5 M 275F Didossierbosrhaaue …. T7-6-9-94- K7 150F Ditemple dequauhtli ... M5-6/77-8-9  K7 180F  Clpranitels ....,...... M5-8/77-8-9  K7 496F 
Ctyrann …. M5 K7 165F  DCidossierboerhaave …. M5-6 K7 150F Diégende ....,...,.... T9-9-9+ D7 195F  Oprotog ..….. .… M5-6 M5 695F 
Clic-tac …. MS K7 120F  Odossisrboerhaave ..…. TB-9-9+ 07 199F Dcavernesdethonsbe . M5-6/77-8-9  K7 150F  Clprolog … 17-8-9-9+ M7 695F 
Clintoxet ze . …. M5 K7 140F  Ciduelaucotorado ...,. M5-6/77-8-9  K7 170F Ccavornes dethonebe .. T8-9-9+ 07 200F  Clpulser2. .. M5:-6/17-8-9+ K7 140F 
Qvision ......,,....., M5 K7 120F  Clempire .… M5-6/77-8-9+ K7 160F Cdieuxdela glisse M6 K7 185F  Clrodén . T8-9-9+ 07 220F 
Cjoux maître jacques … M5 K7 100F Cempiro.…. … D 07 240F Ddieuxdelaglisse T8-9-9+ D7 199F  Dredéo … MS/T K7 160F 
Disland .. ..........…. M5 K7 100F Centrée en 6° … M5-6/77-8 K7 240F  Cidieuxdelaglisse .. T7 K7 170F  Crunway2 , M5-6/77-8-9  K7 149F 
Clvotreauto … …. M5/77 K7 95F  Dentropie.. … M5-8 K7 150F  Cidieuxdustade2 ..... M5-6/77-8-9-9+K7 170F  Clrunway2 TB-9-9+ D7 195F 
Osortilèges ave 2 OD 245F  Clentropie… . T7-8-9-9+ K7 150F  Cvolsolo .............. M5-6/T7-8 00 225F  Cisaphir ., M5-6/77-8-9  K7 150F 
Cthésaurus ,.. … T9 D7 220F  Centropie…. . T8-9-9+ 07 199F  Cidiouxdustade2 ..…., TB-9-9+ 07 195F  Csophir TB-9-9+ 7 245F 
Cleurospace .… .. T9 07 275F  Uépouvante. .… 19 D7 170F Dpasseger duvont ..….... T8-9-9+ 07 299F  Cisapiens . M5-6/T7-8-9+ K7 180F 
Csuperbusiness . .… T9 D7 345F  Dorebus .….. . T8-9 07 235F Cpassagordu vent... M8 K7 299F  Dsapiens . -6-9-9+ D7 220F 
OCAO. .. 19 D7 320F  Clorobus . … M5-6/17-8-3  K7 175F Cpassager du vont , T7-8-9-9+ K7 299F  Dscriptor T7-8-9-9+ M7 195F 
M5 K7 265F  Dfacturation/ffil) . T6-9-9+ D7 795F Dlissage de courbes M5 K7 120F  Oscriptor , M5-6 M 195F 
M5 K7 395F Dfélonies … . M5-6 K7 160F Clorann ........ M5/T7 K7 160F  Usilentserv T8-9-9+ D7 195F 
k T9 D7 295F  Cticbesetdos . T7 07 395F  CIM.GT.+bactra . M6/T8 K7 160F  Disäentservice . M5-8/17-8-9  K7 145F 
Cmon général …........ T9 D7 230F  Dfichosetdossiers ..... T8 07 395F OM.GT.+bactron MB/T8 D7 199F  Cisotilnoir … M5-6/77 K7 150F 
Dspacoshuttie simulator T9 07 280F  Diflipper ....,.. K7 140F Dmaddog ...... . 07 235F  Osvleilnoir .. T9 D7 220F 
Gsirius T: 07 240F Cifrançais cm, OA D7 32DF Clmaddog “ K7 175F  Dsoleilnoir ,, 6-9+ D7 220F 
Cscarfinger a K7 199F  Dfrançais cm‘/ D7 320F  Cimalette prof. D7 595F  Csercory . M5-8/77-8-9  K7 155F 
01815 K7 165F ae sos TD D7 320F Ümalette céation (fil) .… M 595F  Clsorcery …, … TB-9-9+ D? 199F 
Dcametdesanté M5/T7 KT 95F  Ograndprix500cc ...,. MB/T8 K7 180F  Cmalettegestion(fil) ... T6-9-9+ D71295F  Cisortilèges . . M5-8/78-9-9+ K7 199F 
Citéléphone (apprentis). M5/T7 K7 105F  Dgrandprix 500ec T8-9-9+ D7 220F  Cmeurtregrdevitesse .…. M5/T7 K7 180F  Dsortièges . … T8-9-8+ 07 250F 
Cleurospace …......... M K7 275F  Ographique T8-9-9+ D7 195F  Cimeurtregrdsvitesse .… T8-9-9+ D7 199F  Cispindizy .… MB6/T7-8 KT 160F 
Difeuvort . Mn K7 145F  Dgraphol.+biorythmes . M5-6/17-8-9 K7 16DF  Cmeurtresurl'atlantique T7-8-9-6+ K7 260F  Dspindizzy .… M8/78-9-9+  D7 240F 
Cispeedy wonder à K7 195F  Cigraphol.+biorythmes . T8-9-9+ D7 199F  Clmeurtresurl'atlantique TB-9-9+ 07 220F  Cistetistiques (fil)... T8-9.9+ 07 195F 
Dbluewer2 ......,.... - D7 220F  Dgreenberet ..... ..... M5-6/77-8-D K7 145F  Clmeurirgensérie M5/T7 K7 295F  Distocks (fil) .… T8-9-9+ D7 795F 
01789 … " -9- 07 195F  Clgroenberot . T8-9-9+ D7 195F  Cimeurtresensérie ..…. T9 D7 299F  Cistonezone . M5-8/77-8-9  K7 150F 
01789... .…. M5- KT 185F DAMS.cobra ........ T9 D7 280F  Clminer2049 M Dslonezone .…......... T8-9-9+ D7 200F 
Cpolitik poker ..,..,..., K7 110F OHMS.cobra …. M5-8/7-B-9 K7 290F Dminer 2049 .… T7-8 Dsupertestdécethlon ... M5-6/17-8-9  K7 145F 
D monte carlo Fa K7 120F  Dbacker ......, M5-6/17-8.8+  K7 160F  Clmissionenrafai cu test décathlon .…, T8-9-94+ D7 195F 
Qcolorcele + tempiates T8-9-9+ D7 595F  Clhacker T8-9-9+ D7 240F  Clmissionenrafale LAN ransmouoes T8-9-9+ D7 199F 
D3Dtight .…........... M5/77 KT I80F  Clgreenbers M5-6/17-8 00 195F  Cmongénéral …….. .. M OTNIT. M5 00 250F 
Clairatlack … _. KT 199F Dijau de dame américain T6-9-9+ 07 195F  Cimonop. +runw.+tennis OTANT. T7 QD 255F 
Clairattack D7 240F  Dkaraté M5-6/17-89  K7 199F +oreenberel M5-6/17-8-9 K7 245F  Clwayoftiger … T8-9-9+ 07 225F 
Cairattack D7 220F  Clkaraté … T8-9-9+ D7 250F  Cimonopoly … M6-6/17-6-8  K7 175F  Dwayoitiger … T7-8-9-9+ K7 195F 
Cassembieur M 399F  Clkidkit … T8-9-9+ D7 299F  Cimonopoly .… T8-9-9+ D7 225F  Dthreshotd .… T7-8 M7 145F 
Dassembieur M5 M 399F  Ckuogfou .. … M6-6/77-8-9  K7 150F  Dmuliplan . T8-9+ D7 690F  Othroshod, MO5 M5 145F 
Diastérix Ja potien mag. .. M5-6/77-8-94+ K7 195F Chung fou T8-9-9+ D7 200F  Doteanis .… M5/77 K7 195F  Dvaliseéducative .…. M5/T7 K7 499F 
Em on mag. .. T8-9-9+ D7 245F Dl'affaire sydney … M5-8/77-8-9  K7 170F  Coceonia .… T8-9-9+ 07 220F  Divalisoédueativo T8-9-9+ 07 499F 
Clavenger …........... M5-6/17-8-9 K7 145F  Dl'affairesydney T8-9-9+ 07 245F  DOn°10(foot) _M5-6/T7-8 00 215F  Cjvampiro..........…, K7 195F 
Clavenger ......,.,.... T6-9-9+ D7 195F Df'effairevoracruz M5-6/77-8-9  K7 170F Cmonop. + runw + tennis Ovampire D7 250F 
Dibarry boxing .......... T8-9-9+ 07 220F  Clffaireveracruz T8-9-9+ 07 245F + groën beret T8-9-9+ D7 295F  CrunwayM{coursooeto) M5-6/77/78 QD 199F 
Dbarryboxing … M5-6/17-8-9+ K7 140F  Dfaigled'or.….......... M5-6/T7-8-9+ K7 180F  Dperagraphe ......... TB D7 395F  Civiemontdinos. .….... M6-6/18-9  K7 160F 
DOblit .… T7/109 M 245F  Claigled'or ........... T8-9-9+ 07 240F  Clpayeli) TB-9-9+ D7 795F Cviamortdinosaures . M6-/17-6-9-9+ K7 160F 
CB sccsoscues M5 M 245F  Clévadétapiocatrez …., M5/77 K7 186F  Cipédago.calc.ce2 en. M5-6/77-8 K7 720F  Dviomortdinosaures ... T8-9-9+ 07 195F 
Oblitz . .…. M5-6/77-8-9  K7 175F  Clagosted'rtillac T7-8-9-9+ K7 270F  Cipédago-calc.co21tri. M5-6/T7-8 KT ZADP, COX Ry sscmeonsr M5-6/T7-8 K7 150F 
Cblitz ,… T-9-8+ 07 225F  Dagested'artillac M5-8 K7 270F  Cpédago.calc.cmi lan. M5-6/77-8 K7 720F Dray . TB-9-9+ D7 220F 
Cchoplifter ............ 17-8-9 M 195F  Dagested'antillac T8-9-9+ 07 299F  Cipédego.calc.cm1 1tn. M5-6/T7-8 K7 240F Everio ts (ll .. M5-6/77-8-8  K7 145F 
Dcoplifter … M5-6 M195F  Dlelune FU K7 180F  Dpédago. calc.cm2 en. M5-6/77-8 K7 720F  Cieerkungfuli . T8-9-9+ D7 195F 


M5-6/77-8-9-9+K7 146F 


D7 180F Dpédago. calc.cm2 1 tri. M5-6/T7-8 K7 240F  Oraidsurla marcho 
M5-6/T7-8 QD 199F 


… M6-6/17-6-8+ K7 140F  Dlalune.. 
M5-6/17-6-9  K7 150F Cpédago. gram.ce2 1 an, M5-6/T7-8 K7 720F  Clsupertennis 


Coliseum . , . 
. T9-9+ D7 240F Dia mine al 


Dcaliseum ., 





ments .. 














Ccolorcatc . 17-89 M 295F Cle mine aux diaments .. T8-9-9+ D7 245F Ctluswer . M5-6/T7-8 QD 220F 
Ocolorcale ., .… M5-6 M 295F Dbudget tam .… M5-6/T7-B OD 210F 
LIVRES 
Clexercices pour MOS . 80F Cmanueltechnique T07/70.,..... .125F  DOMO5 premier programme... Oprefs assistance M05-T07/70.,..110F  Cpratique du MO5 ...........,..... 
Clexescices pour TO7 .........,... 80F Uinitietineubasie 07/70... .76.50F  Dgest.detichiers M05-T07/70 Cbesic des MO5-T07/70........... 95F  Ciguide pratique de colorcalc. se 
Ctesic DOS du MO5-T07/70 … Cinitiation au basic 128 ..125F  OS6prog-sur MD5................. 16F ©102 progr.MO5-T08/T08 . 135F DJ face cachée du T07/70 





Cifurth, manuel de rélérence | ” Clinitietionaulorh …......... 96F  Clbosic+B0rvet.surM0S-T07/70 105F  ChlapratiqueduT07/70 :.100F 


RER ER EEE eee 


COMMENT COMMANDER : Cocher le(s) articleis) désiré(s) ou faites-en uno liste sur une feuille à pert - Faites lo total + frais de port (20 F paur achats imférieurs à 5DD F, 4D F de 500 à 10D0 F. 60 F pour achet supérieur à 1000 F. Ë 
Je possède : [] TO7 O MO5 O0 TO7-70 O TO9 OO MO6 O TO8 0 TO9“+" 
NON PRENONS — 
RE CODE OA VIE 
Mode de paiement : lchèque [I] mandat [ contre-remboursement (prévoir 20 F de frais) 
envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 


indicatif, 


OT Tous nos prix sont à 





REPAIRE 


MONITEUR DESASSEMBLEUR 


Le désassembleur pour le TO9 + TOB fait suite à la série 
d'articles parue dans THEOPHILE n° 9 à 13 d'avril à 
décembre 1985 sur le TO7 et le MOS. THEOPHILE : 
anciens numéros PROMEDIA, 4 rue Marcellin-Blanc 
69110 Sainte-Foy-Les-Lyon, tél. : 78 59 89 53 {au 
25.9.86) 


CARACTERISTIQUES : entièrement en 
MACHINE translatable, 


IMPORTANT : peut cohabiter avec un programme 
BASIC proposé de 90EDH à 9B3FH au 
départ. 


Point d'entrée du désassembleur 919EH 
du dump 9800H 
utilisation 9100H 


UTILISATION : uniquement avec votre BASIC 512 d'où 
l'indice }4 


Chargement : 2 options 
1- LOADM"“}4”, , R initialise un nouveau 
mot réservé M] qui suivi de ENTREE 
donne accès au MONITEUR. 
2 - LOADM “J4” sans création du mot MJ 
dans ce dernier cas on entre dans le 
moniteur par un EXEC 8&H9800. 


Supposons que vous soyez entré dans le moniteur, le 
Signe > en rouge apparaît à gauche de la ligne, ce qui 
signifie que le moniteur est en attente d’un ordre. 

Tapez MO000, le M écrasant le >, suivi d'Entrée. 20 
lignes de dump mémoire s'affichent. I est possible de 
suspendre le dump en appuyant sur la barre d'espace- 
ment et de reprendre en appuyant sur C puis Entrée. 


Si vous disposez d'une imprimante parallèle (PR90600 
ou même l'ancienne PR90080) vous pourrez obtenir le 
dump sur papier en tapant 1000 au lieu de MO00, 
toujours suivi de Entrée. Pour un travail de précision, on 
utilisera LOOOO qui imprime une seule ligne. La suite est 
obtenue comme précédemment avec C. 


Revenons au mode écran en tapant K qui redonne le > 
rouge. Pour sortir du moniteur tapez X sur le > suivi 
d'Entrée. POKEr de 1 à 8 octets à la fois est aussi 
possible en amenant le curseur dans la partie de l'écran 
en jaune qui représente le contenu des octets. Dès la 
modification faite, la validation est obteriue par Entrée, 
la ligne redevient jaune si les valeurs sont acceptées 
avec un gloop sonore, la ligne restant blanche si une 
valeur non hexadécimale est proposée, un beep aigü le 
confirme. 


Maintenant que la manipulation est bien connue allons 
nous promener dans les banques ROM et RAM. 


Le Basic est installé dans deux fois 16 K de 0000H à 
8FFFH. Tapez sur le > rouge un zéro suivi d'Entrée, 
vous êtes dans la ROM 0 du Basic. On le reconnaît au 
fait que l'octet à l'adresse 20H continet 0. Même procé- 
dure en tapant 1 sur le signe > rouge et vous êtes dans 
la ROM 1 (actet 20H à 1}. 
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langage 


]4 Basic 512 
pour T09+ et TO8 


Examinons 
les 30 banques RAM 


Tapons sur le > rouge un B suivi d'Entrée, le message 
“banque RAM de 1 à 30:” apparaît. Les valeurs en 
dehors de ces limites sont rejetées, Comme l'indique le 
guide du TOS, nous avons considéré que 30=0. 

Pour vérifier vos incursions dans les 30 banques, faites 
comme le petit Poucet, laissez à la même adresse dans 
les 30 banques un message différent à l'aide du POKE. 
Par exemple une rangée de chiffres égaux au numéro de 
la banque. Revenez ensuite voir, cette fois en visiteur 
neutre. Vous retrouverez bien vos cailloux. Une particu- 
larité pour la banque 1, elle est choisi par le Basic pour 
stocker le programme que vous avez peut-être en RAM, 
alors attention. 


Le désassemblieur 


On peut désassembler en tapant D sur le > rouge suivi 
d'Entrée. Puis, en douceur tapez 6 caractères : adresse 
en hexadécimal sur 4 caractères, un espace et enfin un 
0 pour sortir Sur écran ou un 1 Sur imprimante. Si vous 
appuyez sur À sans avoir connecté une imprimante, 
plantage. Une seule ligne s'imprime, pour la suite tapez 
Sur la barre d'espacement en mode pas à pas, ou Entrée 
en mode continu. Dans les deux cas on suspend comme 
ci-dessus. L'arrêt définitif est obtenu par S. 

Pour aller dans chacune des 2 ROM Basic avec le 
désassembleur, il faut avoir fait la commutation avec le 
moniteur auparavant (0 ou 1). 

Si l'on commet une faute de frappe en tapant les 6 
caractères, aucune procédure de reprise n'est prévue 
du fait que le désassembleur s'arrête dès la première 
ligne. I! suffit de stopper avec S puis reprendre avec D. 
Si l'on répond autre chose que 0 ou 1 pour l'option de 
sortie (6ème caractère) c'est l'imprimante qui est choisie. 


Mémento 
des commandes 


(E=touche Entrée) 


BASIC DUMP/DESASS RESULTAT 

MI+E entrée dans le moniteur 
B+E Quelle banque ? 1 à 30 
C+E suite du dump 
D+E donne signe + répondre 

AAAA 0 ou AAAA 1 
AAAATE dump imprimante 
K+E abandon imprimante 
LAAAA+E dump une ligne 
MAAAA+E dump écran 
S sortie du désassembleur 
X+E retour Basic 
OH PROMO 
1+E ROM 1 
Club Micro Thomson (1987) 


Résulfais concours 

TEOFUN - TEO Ne 10 
TEOFUN N° ] : I logiciel 
Sourrouillle Pantin 
Charpentier Digoin 
Courault Chinon 
Gaiy Saulvures 
Devichi Le Luc 
Mettey Petitmagny 
Drouinot Le Mans 
Boissy Pierre Bérite 
Lov St-Martin 
Prauda Sarrebourg 
Cordier St-Lupigin 
Rattier Valence d'Agen 
Peuquet Belfort 
Roqueplan Nevers 
Royere Sens 
Foltran Garchiry 
Weisse Rosières-aux-Salines 
Drillet Ermont 
Mann Gradignan 
Bonnard Rennes 
TEOFUN Ne 2 : 1 poster 
Payen Luzarches 
Geain Alençon 
TEOFUN N° 3 : I logiciel 
Di Méglio Marseille 
Prauda Sarrebourg 
Cordier St-Lupigin 
Roqueplan Nevers 
Royere Sens 
Weisse Rosières-aux-Salines 
Gouzon Nancy 
Tuchin Avrille 
Ratier La Ferrière 


Mess 2. cmmermrcenseey 


]4 


90€ 00 00 Où 00 00 00 FF 00 FF O0 FF 00 FF 4D DD 
g0F0 00 80 F9 81 00 22 06 BE 90 EF JE 20 1D 7E 09 00 
9100 86 01 B7 67 73 CC 90 ED FD 67 74 CC 90 Fi FD 67 
9110 76 39 %0 35 2F 58 36 43 41 49 4C AC 41 54 O0 00 
9120 FF FF 00 00 FF FF O0 00 FF FF 00 00 FF FF Où O0 
9130 FF FF O0 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 
9140 FF FF 00 00 FF FF QC 00 FF FF GO O0 FF FF 00 00 
9190 FF FF 00 O0 FF FF 00 O0 FF FF OÙ OÙ FF FF 00 O0 
9160 FF FF 00 00 FF FF O0 00 FF FF 00 OG FF FF OÙ 00 
9170 FF FF 00 O0 FF FF 00 00 FF FF 00 O0 FF FF 00 00 
9180 00 00 FF FF O0 00 FF FF 00 O0 FF FF 00 O0 FF FF 
9190 00 00 FF FF O0 O0 FF FF 00 00 FF FF 00 00 OF EE 
9140 C6 2B BD E@ 03 BE 61 FC 86 06 BD E8 Ob 5D 27 FA 
91E0 E7 60 44 BD EB 03 26 F2 A6 82 84 OF 97 FB OF FE 
9100 CE 61 Fa SE 6 FO C& 04 A6 80 40 30 25 28 81 09 
91D0 23 OA 81 11 23 20 81 16 22 1 80 07 OD FE 26 OA 
91E0 48 48 48 48 À7 C4 OC FE 20 DE AA C4 A7 C0 OF FE 
g1F0 54 54 27 05 20 D2 7E 09 00 C6 OÙ BD EB 03 BD 6E 
9200 OD F8 27 26 B6 40 B7 60 28 BD E8 12 25 F6 86 08 
9210 B7 60 2B C6 OF HD EB 12 25 EA 20 OE OD F8 27 07 
9220 BD E9 12 25 DF 20 03 BD E8 03 E& E0 Ci 04 26 EC 
9230 CE 61 F7 OD EE 26 1B BD E8 06 D 26 02 20 F8 Ci 
9240 OD 26 04 OC EE 20 B7 B7 00 00 Ci 33 19 27 0 B0 
8250 20 AC BD EB 06 59 27 A6 OF EE OD F8 26 02 20 SE 
9260 B£ 05 BE FD EB 30 1F 26 FC 4A 26 F& 20 C9 50 SE 
9270 OD FF 27 03 B7 00 O1 10 GE 68 AO C6 02 D7 FD 17 
9280 03 1F CC 20 20 ED At SE F5 A6 B4 97 FA C6 O1 D7 
9290 FD 17 03 OD OF F1 96 FA 81 10 27 1E 81 11 27 LE 
9240 Cë 20 E7 AO 33 8D 00 2A Cé 32 5A 10 27 00 85 A 
9280 C1 28 F7 A6 C2 97 FO 16 00 9A C& O1 20 C2 C6 02 
9200 D7 F1 A6 84 97 FA 17 02 D8 86 20 A7 A0 96 FA 16 
9200 00 62 01 OÀ 02 OA Os OA 0B OA 14 OÀ 195 CA 1B OA 
92E0 1B OA 38 OA 3E OA 41 OA 42 OA 45 OA 4B OA 4E OA 
92F0 51 OA 52 OÀ g3 OÀ Bb OÀ SE OA 61 OA 62 OA 55 OA 
9300 &B OA 71 GA 72 OÀ 75 OA 7B OA 87 OA 6F OA C7 OA 
9310 CD OA CF OA 16 04 17 O4 A 00 1C O0 1E O8 1F 0B 
9329 30 02 31 02 32 02 33 O2 34 09 Si 09 36 09 37 09 
9330 3C 00 6D 04 B4 FO B1 40 24 12 33 ED 00 0B 44 44 
9340 44 44 Ab C& 20 OC O1 07 04 07 05 O6 B4 30 44 44 
9330 44 44 97 F0 98 FA 97 F4 84 CO B1 40 27 11 Bi E0 
9360 27 13 81 CO 27 13 96 F& 20 17 96 FA 84 OF 39 BD 
9370 F9 BA 40 20 OA 8D F3 8A 50 20 04 ED ED BA 60 97 
9380 FA D6 F1 27 38 C1 02 27 16 35 D 00 18 ED C4 2B 
9390 OÙ A1 C1 27 04 20 F6 33 42 Ab C2 97 FA 20 IE 33 
9340 BD 00 12 20 EB 3F 70 93 71 SC 72 SE 73 5F 74 GE 
9380 75 6F 76 FF 77 3F 78 53 79 9C ZA FF 77 OF F9 OF 
9300 F5 D6 FC 58 33 aD 00 22 EC C5 53 CB DF FE 96 FA 
9300 AD 9F bi FE CC 18 OD 90 F8 27 02 Bb 20 ED Ai CC 
93E0 OA 04 ED A1 9F F5 8€ 6E A0 39 00 16 00 34 OÙ 46 
93F0 00 3E 01 07 02 03 02 03 02 03 01 48 01 7B 01 FB 
9400 96 F4 2A 10 84 OF Bi 03 27 OB El OC 27 04 84 QE 
8410 26 02 OC FD 17 O1 D4 96 23 A7 A0 16 O1 E2 17 0 
9420 CA 8B 3C A7 AQ 16 O1 DB OC FD 17 04 BE 16 01 DQ 
9430 A6 84 97 FC 64 90 81 90 28 02 OÙ F9 96 FC 84 60 


1470 
1393 
2538 

939 
2040 
2040 
2040 
2040 
2040 
2040 
2040 
1783 
2093 
2248 
1914 

923 
2165 
1487 
1722 
1598 
1987 
1899 
1215 
1673 
1868 
1591 
2214 
1377 
1542 
1838 
2311 

252 

578 

809 
1131 

616 

45b 
1192 

890 
2152 
1639 
1894 
1620 
1678 
1530 
1974 
2575 
1994 
1423 

536 
1105 
1310 
1872 
2181 


REPAIRE 





9440 48 44 45 44 44 97 F7 Cé 20 E7 A0 17 O1 83 C6 20 
g4s0 E7 A0 96 FC 85 80 27 27 84 OF 97 FE 81 ÔF 27 59 
9460 81 OC 27 47 81 ON 27 43 81 08 27 45 Bt 09 27 5F 
9470 17 O1 7A 53 8D 00 55 96 FB 17 O1 A3 ED 435 59 17 
9480 O1 6B 86 04 97 FB 96 FC 85 10 27 11 CB 2D E7 A 
9490 84 OF BO 10 40 CB 24 E7 A0 97 F5 20 O4 64 OF 20 
9480 F4 C& O1 CE 61 F6 17 01 06 29 CB 81 OC 27 02 OC 
9480 FD 17 O1 57 17 O1 49 20 BA OC FD 17 Q1 2D 17 O1 
94C0 3F OD F9 27 04 86 SD A7 Aù 39 2C 28 AB 2C 24 2H 
9400 AB 2C 2D AA 2C 2D 20 AA 2C AA 42 2C AA 41 2C FA 
940 AE 2C AA 20 AA AE 44 20 AA 20 50 45 D2 20 50 45 
94F0 02 OD F1 26 OA 81 16 27 Ob 81 17 27 02 26 O2 QC 
9300 FA 17 00 9D Cé 11 D7 F3 17 00 CA N6 FD C1 01 26 
910 OE 96 F5 97 FB 2A O6 86 FF 97 F5 20 O2 OF F5 1F 
9520 10 DS F5 DD F3 C6 02 CE bi F7 17 O0 82 86 20 A7 
5930 A0 16 00 DS 17 O0 B4 9B FS B4 FO 44 44 44 44 35 
9540 BD 00 13 17 Où D9 C& 2C E7 A0 96 F3 B4 0F 33 D 
9640 00 04 17 OÙ CA 39 C4 D8 D9 DS DS 30 C3 FF FF Ci 
9960 C2 43 C3 44 DO 17 00 83 Cé 80 07 F4 96 F5 95 F4 
9570 26 07 44 27 1F QC F1 20 F1 96 F1 81 O1 26 OC 34 
9380 02 96 FA 85 02 35 02 27 02 86 08 33 BD 00 06 17 
9590 00 BD 20 DE 39 30 CS DS D9 DB 44 DO C2 Ci 43 C3 
9540 D3 Dé FD CE ki F5 A6 80 A7 CO SA 26 F9 Dé FD 50 
8580 33 C5 50 Ab C4 44 44 44 44 81 OA 25 02 BB 07 BB 
9SC0 30 A7 AO A6 CO 84 OF Bi OA 23 02 BE 07 9B 30 A7 
2900 A0 54 26 DF 39 1F 20 83 68 A0 DO F3 50 86 20 A7 
95E0 AO 5A 26 F9 19 6 02 97 FA 20 02 SD B4 DF FE Cé 
95F0 18 D7 F3 BD E0 GD 12 OD F9 27 O4 86 SE A7 AO 59 
9600 86 24 A7 A0 DE FE 6D 45 39 OF F2 96 FA 33 ED 00 
9610 6B 0D F1 27 OA Dé FO Ci O4 26 04 CB AC E7 AO 4A 
9620 2B 06 8D CO 24 FC 20 F7 A6 C4 84 7F D 33 6D CO 
9630 24 F6 96 F4 81 ED 26 08 51 30 Bb 42 A7 A4 51 25 
9640 96 FO 81 05 26 04 B6 41 20 06 81 Oë 26 04 Eb 42 
9650 A7 AO OD F2 26 09 C6 10 D7 F3 17 FF 7B OC F2 20 
9éë0 16 A7 AD 81 2A 26 10 31 3F 34 40 33 BD OÙ 09 9% 
9870 F7 A6 Cé 35 40 A7 AO 39 58 59 35 33 4E 45 C7 BF 
9680 EF 43 4F CD 40.53 02 BF 52 4F D2 41 53 02 41 35 
9690 CC 52 4F CC 44 45 C3 BF 49 4E C3 54 5 D4 4h 4D 
968O DO 43 4C D2 BF BF 4E 4F D0 53 99 4€ C3 BF BF 4C 
9680 42 52 C1 40 42 53 D2 BF 44 41 C1 4F 52 43 CS BF 
96C0 41 4E 44 45 C3 53 45 D8 45 58 C7 34 46 02 42 52 
9800 C1 42 52 CE 42 48 C9 42 AC D3 42 43 C3 42 43 D 
S6EO 42 4E C5 42 45 Di 42 56 C3 42 56 DS 42 30 CC 42 
96FO 4D C9 42 47 C5 42 AC D4 42 47 D4 42 4C OS 4C 45 
9700 41 D8 4C 45 41 D9 40 45 41 D3 4€ 45 41 DS 50 53 
9710 48 D3 50 35 4C D3 50 43 48 DS 50 33 4C DS BF 52 
9720 54 D3 41 42 DE 52 54 C9 43 57 41 C9 4D 55 CC BF 
9730 53 47 CO 4E 45 C7 BF BF 43 4F CD 4C 53 D2 BF 52 
9740 4F D2 41 53 D2 41 53 CC 92 4F CE 44 45 C3 BF 49 
9730 4€ C3 54 53 D4 4A 4D D0 43 40 D2 43 S5 42 C1 43 
9760 4) 50 Ci 53 42 45 C1 53 Sa 42 C4 41 4E 44 C1 47 
9770 49 54 Ci 4C 44 C1 53 54 Ci 45 4F 52 C1 41 44 43 
9780 C1 4F 52 Ci 41 44 44 C1 43 4D 30 DB 4A 53 D2 4C 
9790 44 DB 52 54 DG 53 25 42 C2 43 4D 50 C2 53 42 43 
97A0 C2 41 44 44 C4 41 4E 44 C2 42 49 34 C2 AC 44 C2 
9780 53 34 C2 4 2 C2 41 44 43 C2 4F S2 C2 41 44 
q7C0 44 C2 4C 4 53 94 C4 40 44 DS 34 54 DS 53 57 
C4 43 4D 50 D9 40 44 D9 53 54 D9 


5 4F 
4 C4 
5700 49 B2 43 40 50 
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1498 
1933 

984 
1297 
1889 
1991 
1448 
1005 
1365 
1507 
1630 

953 
2050 
1964 
2174 
1688 
1767 
2317 
2459 
1348 

996 
2298 
2803 
1425 
1538 
1890 
2161 
1918 
2185 
1842 
2037 
1723 
1180 
1997 
1153 
1994 
1979 
1968 
2211 
1907 
1799 
1811 
18il 
1709 
1713 
1910 
198b 
2092 
1960 
1858 
1459 
1b70 
1924 
1729 
1731 
1667 
1872 
1857 


REPAIRE 


97E0 4C 44 DS 53 54 03 BF 33 37 49 BS 43 4D 30 D5 43 
97F0 4D 50 D3 20 30 35 38 36 43 41 49 4C 4C 41 54 FF 
9800 96 40 97 FA 0F FF 7F &6B OC 20 17 Fë 80 Ci O4 27 
9810 OS BD EB 03 20 F5 39 18 60 1B 30 1B 41 SE CD 1B 
9820 47 04 30 8C F2 BD E4 OF FC BD 30 B2 Bb &9 53 B1 
9830 4D 10 27 00 49 81 49 10 27 00 41 BI 4C 10 27 OÙ 
9840 41 81 44 10 27 F9 57 81 43 10 27 00 AD 81 30 26 
9850 02 OF EF 81 31 26 02 OC EF 81 42 10 27 02 ÎE 8! 
9860 3E 10 27 O1 D1 81 38 27 02 20 95 96 FA 97 4D BE 
9870 69 53 9F C7 CC 00 00 ED &1 ED @1 39 OC FF ED OA 
9880 20 78 OC FF 8D 04 86 01 20 72 CE 69 34 Cb FF SC 
9890 &D Co 26 FE D7 FO &E 69 54 OF FE CE 61 F& OF F5 
98A0 OF F6 Dé FO CS 01 27 03 GC OC FE C1 02 26 O$ CE 
9880 bi Fh Ab 80 80 30 25 28 81 09 23 CA Bi 11 23 20 
g8C0 81 16 22 1C B0 07 OD FE 26 OA 48 40 48 48 A7 C4 
gen0 OC FE 20 DE AA C4 A7 CO OF FE SA SA 27 1B 20 D? 
98E0 C& OB BD EG 03 Cé O1 F7 60 57 C& 06 F7 60 54 Cë 
98FO 36 ED E8 1E 32 82 16 FF 10 39 86 14 97 F4 C& OD 
9900 BD F8 03 Cë OB BD E8 03 BE 81 F5 10 BE 68 AO CD 
9910 FF 26 05 CC 1B 41 ED AL 86 3E A7 AO C6 02 D7 FD 
9920 OD FF 26 05 CC 1B 42 ED AÏ 17 00 CD Bb 20 A7 AO 
9930 C& 01 D7 FD C6 CB OD FF 27 02 C8 10 D7 F2 9E F5 
9940 OD FF 24 05 CC 1B 43 ED A1 17 00 AD &6 20 A7 A0 
9950 OA F2 28 F5 30 16 C6 08 OD FF 27 04 30 18 C6 10 
9960 D7 F2 OD FF 26 05 CC 1B 46 ED A1 OD EF 27 OS B7 
9970 00 01 A6 80 B7 00 00 64 7F BI ÏF 23 04 81 7F 23 
9980 02 8b 2€ A7 AO OA F2 26 E2 CC OD OA ED A1 88 04 


1830 
1372 
1793 
1187 
2053 
787 
1292 
1136 
1336 
1957 
1785 
2433 
1733 
1288 
1314: 
2002 
2027 
1763 
1976 
2183 
1727 
2256 
1698 
1410 
1944 
1227 


1788 


9990 A7 A0 9F F5 BE &B A0 20 13 OD FC 27 04 OF FC 20 
99h0 O8 OA F4 OD F4 10 26 FF SF Î6 FE SD OD FF 27 26 
9980 86 40 B7 60 2B BD E8 12 25 Fë Hé 0B B7 60 28 Cé 
99C0 OF BD FEB 12 25 ER 20 CE OD FF 27 07 BD EB 12 2 
9900 DF 20 03 BD FEB OS Eë 80 C1 04 26 EC ED EB O8 SD 
990 10 27 FF B5 OD FF 10 27 FE 1F 86 05 8E FD E8 30 
99F0 1F 28 FC AA 28 Fé 18 FE 10 Dé FD CE 61 F5 OD EF 
900 27 03 B7 00 O1 A6 80 B7 00 O0 A7 C0 SA 28 FE D6 
9R1O FD CE 61 F5 A6 C4 44 44 44 44 Bi OA 25 02 EB 07 
9A20 aB 30 A7 A0 Aë CO 84 OF B1 OA 25 92 8E 07 8B 30 
SASO A7 AO SA 26 DF 39 86 04 97 FO 17 FE 59 DE F5 DF 
9440 F8 OF FB 30 O1 86 02 97 FO 17 FE 4D DE F8 96 Fé 
SASO Dé FB A7 C5 DF FR OÙ FB C1 07 28 E7 OC FC @b 04 
9460 97 FO 17 FE 31 Cô 02 F7 60 37 C& 01 F7 &0 34 Cb 
9870 31 BD EB LE CB SC BD E8 1E 17 FE 7E 39 30 aD 00 
gAë0 41 17 FD 87 BD 30 E2 BE &9 53 Aë 80 8G 30 Bi 09 
990 22 7E C6 OA 3D 34 C4 Ab 84 26 09 86 69 53 E0 30 
98AO 32 61 20 14 80 30 81 09 23 04 32 B1 20 &2 AB EÙ 
SABO @1 O1 23 SC 81 1E 22 58 97 FB BD 2B F6 BD {9 14 
ACC FD 3E OB 09 &1 6E 71 74 63 20 32 41 4D 20 30 51 
9ADO 20 61 20 33 30 3A 20 04 10 GE 68 AO CC 1B 45 ED 
9AEO A1 96 FB SF SC 80 OA 25 02 20 F9 SA 34 04 CE 30 
AFO E7 A0 35 02 C6 OA 3D 34 O4 DB FB EQ EO CB 30 E7 
9800 AG CC 0D OA ED Ai B& 04 A7 A0 8E 68 AC 16 FC FB 
9810 30 @D 00 O6 17 FC F4 16 FC EF 1B 41 40 41 53 20 
9820 44 45 20 43 4F AD 4D 35 54 2E 21 OD OA 04 20 20 
9830 30 36 2E 30 31 2E 38 37 43 41 49 4C 4C 41 54 20 


“ABONNEZ-VOUS 


REASSORTIMENTS DES ANCIENS NUMEROS 


e TEOPHILE Andlenne Version (au rninirmum 5 numéros) 
Nurnéros disponibles de 5 à 13 


7 Snuméros 75 Frs (@ précisé") .,...4.44.44007,.,,,,,.,., Je. 


© numéro(s) supplémentaire(s) 15 Frs l'un (à préciser) 
O1 La collection complète 100 Frs (du 5 au 14) 


# TEO Nouvélle Verslon : 


C1 1 numéro 25.Frs (à préciser) .. mm 0... M. nus esenucs.s 


Participation auxfrais d'expédition: pour 5 numéros et plus, 10 Frs. La Collection com: 


Out. je désire recevoir les anciens nurnéros cie TEO : 


sosssesste 


BULLETIN D'ABONNEMENT 


Qui, le désire m'abonnénrà TEOQ 


Cl Douze numéros au prix de 300 Frs 


Boure numéros pour l'etranger 400 Frs 


Je vous Gfiresse ct-joini.men règlement 
pôr chèque à l'ordre de TEO : 


Bulletin à retoumer 
sous enveloppe affranchie 


avec votre chèque 
à l'ordre de TEO 


Adresse : PROMEDIA 


Service Abonnement 


4, rue Marcellin-Blanc 


69110 SAINTE-FOY-LES-LYON 


1793 
1637 
1904 
1561 
2031 
1913 
2258 
1650 
1739 
1330 
2320 
2310 
2434 
2107 
1898 
1829 
1376 
1224 
1608 
1258 
1313 
1604 
2166 
2181 
1579 

808 

940 





Avec Colorcalc + 
FIL repousse les limites du calcul... 


Colorcalc+ : le nouveau tableur 
multifonction, professionnel et 
puissant. 


—Un vaste tableau de 255 lignes 

et 72 colonnes (soit plus de 

18 000 cellules). 

—De nombreuses commandes pour 
simplifier la construction des feuilles 
de calcul. 

— Des fonctions mathématiques ou 
scientifiques pour effectuer tous types 
de calculs et de simulations, manueis 
ou automatiques, par lignes ou par 
colonnes. 

- Des fonctions évoluées : calculs 
répétitifs, classement des données par 
ordre ascendant, fusion de tableaux, 
mise en page étudiée à l'impression. 

- Un maniement ulfra-simple grôce aux 
menus déroulants. 


aus 


SoLen aai cs 


COLORCALC + 
395 F* 


Pour Thomson TO8 et TO9 +. 
Disquette 31/2 accompagnée d'une 
documentation en français. 


Également disponible : 

LA MALLETTE COLORCALC + avec Colorcalc + 
et 9 modèles de gestion prêts à l'emploi. 595 F° 
“Prix public maximum conseillé. 








FRANCE IMAGE LOGICIEL 


Pour obtenir des renseignements complémentaires sur Colorcalc +; retourner ce bon à FIL, Tour Galliéni H, 36 ovenue Golliéni, 93175 Bagnolet cedex. 
OT Adresse : 


FOOT Société : 


TEOIC 


REPAIRE 


D_E D A _L E 


Jeu de réflexion fondé sur le casse-tête, son principe est 
le suivant : le jeu se déroule dans un cadre contenant dix 
pièces. Au début de la partie, l'ordinateur les a placées 
d'une certaine manière et le but est de faire sortir du 
cadre la pièce n° 1 par le bas. 
Pour cela, vous pouvez bouger chaque pièce mais sans 
jamais les sortir du cadre. I! suffit d'indiquer le n° de la 
pièce et le sens de son déplacement grâce à une des 
flèches du clavier, mais ne pas sur “ENTREE” après. 
L'ordinateur vérifie chaque déplacement et évite ainsi 
les chevauchements ou les sorties du cadre. 
Le programme est écrit en Basic 128 et peut 
éventuellement être adapté en Basic disque 1.0 
Voir illustration page 38. Michel Colace. 
1 * DEDALE 
10 CLS:SCREEN?, 0, 0 
20 CLEAR, , 46 
23 DEFGR$(0)=0, 127,127,127,126,126,126, 1 
26:DEF6R$(1)=<0, 254,254,254, 126, 126, 126,1 
26 
27 DEFERS(2)=126, 124, 126, 12,1 


26,127,127 
, 0:DEFGRS(31=126, 128, 126, 126, 12 


ë,1 
&,254,254 
0 
4 
30 DEFGRS(6)=255, 195, 251, 251,251, 251,255 
255: DEFGRS (712295, 195,219, 195, 219, 195, 2 
55,255 
35 DEFGRS (82255, 195,219, 195,251, 254, 195 
255: DEFERS (9)=255, 195, 219,219, 219,219, 
95,255 
40 DEFGRS (10)=239, 169, 187, 130, 187, 168, 23 
2,8:DEFERS (11)=127,65, 117, 20, 247, 0,0,0 
50 DEFGRS(12)=119,85, 93,65, 221,21, 23, 16: 
DEFGRS(131=232, 168, 184, 128, 184, 168, 232,8 
60 DEFGRS(141=23, 21,29, 1, 29, 21,23, 18:DEF 
GR (151-232, 184,128, 239, 40, 238, 139, 254 
70 DEFGRS(16)=232, 184, 128, 239, 40, 238, 130 
254: DEFGRS (173223, 21,29, 193,93, 198, 149, 
247 
80 DEFGR$ (18) =0,0, 0,239, 40, 238, 130, 254 
100 DEFGRS (19)=0, 126, 126, 126,66, 122,122, 
122: DEFGRS (20)=66, 94,94, 94, 6, 126, 126, 0 
110 DEFERS(21)=66, 122,122, 122,66, 126, 126 
0 
y 
120 DEFERS (22) =0, 127, 125, 125, 124, 127, 127 
,0:DEFGRS(231=0, 254, 222, 222,30, 222,254,0 
:DEFERS (24) =0, 126, 126, 126, 66, 94, 94, 94 
130 DEFGRS (25) =66, 90,90, 90, 66, 126, 128,0 
140 DEFERS (281-255, 128, 191,160, 160,180, 1 
67,162: DEFGRS (27)=162, 162, 167, 160, 160,19 
1,128, 255 
150 DEFGRS (281-255, 1,258,5,5,5,197,69:DE 
FGRS(291=69, 69, 197,5,5, 253, 1,255 
155 DEFGRS (30) =255, 128, 191, 160, 160, 180, 1 
&7, 164: DEFERS (311-167, 168,167, 160, 160,19 
1,128, 255 
160 DEFERS (321-255, 1,253,5,5,5, 197,5: DEF 
ERS(33)=133,5,197,5,5, 253, 1,255 
170 DEFGRS(34)=255, 128, 191,160, 160, 160,1 
67,164: DEFGR#(35)=164, 167, 164, 180,160, 19 


22 


1,128,255 
180 DEFGRS(38)=255,1,253,5,5,5, 197, 69:DE 
FERS (371269, 197, 69,5,5, 253, 1, 255 

190 DEFGRS (38)=255, 128, 191, 160, 160, 160,1 
64,164: DEFERS(37)=164, 164, 167, 160, 160,19 
1,128,255 

200 DEFGRS (4012255, 1,253,5,5,5,5, 5:DEFGR 
5(4125,5,197,5,5,253, 1,255 

204 DEFGRS (42255, 128, 191,163, 166, 171,1 
89, 182: DEFGRS (4312255, 1, 293,197, 101,213, 
189, 109 

208 DEFGRS (44)=182, 189, 171, 186, 163,191, 1 
28,255: DEFGRS (45)=109, 189, 213, 101, 197,25 
3,1,255 

210 USCL)=6RS (28) +GR$ (28) 

220 US(2)=6R$ (27) +6R$ (29) 

230 US(3)=6R$ (30) +6R$ (32) 

240 US(4)=GRS(31I+#ERS (33) 

250 US(5)=BR$(34)4GR$ (36) 

260 US (6)=GR$(35)46R$ (37) 

270 US{7)=6R$ (38) 46R$ (40) 

280 US(8)=GR$ (39) +6R$ (41) 

282 US(9)=GR$ (42) 46R$ (43) 

283 US (10)=6R$ (44) #6R$ (45) 

288 ATTRB1, 1 

290 LOCATE 20, 2:COLOR, 7:PRINTUS (9) : PLAY 
"0500" 

295 LOCATE 0, 4:COLOR#, 6: PRINTUS (10) : PLAY 
*D4LA" 

300 LOCATE 25, 4:COLOR6, L:PRINTUS (8) : PLAY 
"DAFA" 

310 LOCATE 30,2: COLOR4, 7:PRINTUS (3) : PLAY 
"0550" 

320 LOCATE 10, 2: COLOR?, 4:PRINTUS (3) :PLAY 
*OSFA" 

330 LOCATE 35, 2:COLOR4, 6:PRINTUS (9) : PLAY 
"0450" 

340 LOCATE 15, 2:COLORS, S:PRINTUS (1) : PLAY 
*OSLA" 

350 LOCATE 15, 4:COLORS, 5:PRINTUS (2) : PLAY 
“DASI" 

360 LOCATE 0,2:COLORA, 6:PRINTUS (9) :PLAY" 
0550" 

370 LOCATE 20, 2:C0LOR4, 7:PRINTUS (5) : PLAY 
“(520" 

380 LOCATE 20, 4: COLOR, 7: PRINTUS (8) :PLAY 
"Q4RE" 

390 LOCATE 25, 2:COLORG, 12PRINTUS (7) : PLAY 
"QSNI" 

400 LOCATE 5, 2:C0LOR1, 3:PRENTUS (1) : PLAY" 
OSRE" 

410 LOCATE 5,4:COLORI, 3:PRINTUS (2) :PLAY" 
h211 0 

420 LOCATE 30, 4:COLORA, 7:PRINTUS (4) : PLAY 
“4LA" 

422 LOCATE 10, 4:COLOR2, 4:PRINTUS (4) : PLAY 
"D4SO" 

424 LOCATE 35, 4:COLOR4, 6:PRINTUS (10) :PLA 
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Y"OARE" 

430 LOCATEA, 7:ATTRBO, 1: COLOR6, 0: PRINT"DE 
DALE est un jeu de reflexion” 

440 LOCATE6, 12: COLORS, 0: INPUT "Votre pren 
os S.V.P, "UPS 

447 ATIRBO, L:LOCATE, 12:COLDRO,0:PRINT" 


450 LOCATE6, B:COLOR3, 0: PRINT® Vous pouve 

z voir la solution surtout  observez b 
ien tous les coups 5i vous voulez reu 

ssir rapidesent" 

470 LOCATEZ, 14:COLOR6: PRINT" N'appuyez p 
as sur (ENTREE) apres avoir choisi la p 
iece et le sens" 

472 LOCATE2,21:COLORI,0:PRINT'M, Colace 
Nontivilliers - fevrier 86° 

473 BOX(0,46)-(319,199),5 

474 COLDR4, 6: ATTRBO, 0: FORI=2T038:LOCATEI 
322: PRINTGRS (11): NEXT 

473 LINE (2,187)-(318,187),4 

490 PLAY"AITSL24REL2450L12S0LAL245150L 48 
QSRE" 

492 PLAY"L3&04SIL 12S3L2405D0L12RED0" 

494 PLAY"L12045105D0L2405REL1204LAS0LASI 
L24LAL2404RES0L12S0LAL2404S150" 

496 PLAY"L3604SIL1251L120500RECAS10SDOLS 
6D4LAL1250L 7260" 

498 PLAY"ALTSL24REL 24501 1260LAL24S150L48 
RE [] 

J10 AS$=6RS(0)+GR$(1) 

J20 A$(1)=GR$(2)+6R$ (3) 

530 A$(2)=6R$ (22) +6R$ (23) 

940 IF XE$="0" THEN 550 ELSE GOSUB 2400 

S90 ATTREO,0:FORI=1T08 

J60 LOCATE 25,0:COLORA4, 7:PRINTERS (10) :LO 

CATEZ5+I, 0: PRINTGRS (11) :LOCATE34, O:NEXT: 

PRINTGERS (12) 

570 FORI=1TO 10 

380 LOCATE 25,0+1:PRINTERS (15) :LOCATES4, 

0+1:PRINTERS (14) :NEXT 

J90 LOCATE 25, L1:PRINTGRS (15) :GR$ (18) ;GR 
$(18) 

600 LOCATE 32,11:PRINTGERS (18) ;GR$(18):6R 
$(17) 

b10 L1=28:C1=2:L2=26:C2=2:L3=32:C3=25L4= 
28: C4=b:LS=26:C5=6:L6=32:Ch=6:17=28:C7=8 
:L8=30:C8=0:L9=28:C9=10:L10=30:C10=10 
812 K=0:K1=0:K2=0:K3=0:K4=0:KS=0:K6=02K7 

=0:K8=0:K9=0 

&14 K10=0:K11=0:K12=0:K13=0:K14=0:K15=0: 

K18=0:K17=0:K18=0:K19=0: 5C=0 


: 620 ATTRBI,! 


#30 LOCATELI, CI: COLOR6, 1: PRINTAS 

640 LOCATEL1,Ci+2:COL0R6, 1:PRINTAS (1) 
650 LOCATEL2, C2: COLORS, &:PRINTGRS (19) 
660 LOCATEL2,C2+2:COLORS, 6: PRINTERS (20) 
670 LOCATELS,C3:COLORS, 4: PRINTERS (19) 
680 LOCATELS, C3+2: COLORS, 4:PRINTGERS (21) 


E90 LOCATEL4, C4: COLOR2, 0:PRINTAS (2) 

700 LOCATELS, CS: COLOR4, ds PRINTGRS (24) 
710 LOCATELS, C5+2: COLOR4, 4: PRINTGR# (21) 
720 LOCATELE, Cés COLOR, 5: PRINTGRS (24) 
730 LOCATELE, Cb+2: COLDR7, 5: PRINTGRS (25) 
749 LOCATEL7,C7:COLORS, 0: PRINTERS (4) 

730 LOCATELB, C8: COLOR4, 0: PRINTERS (7) 

760 LOCATEL9, C9:COLORS, 1: PRINTERS (8) 

770 LOCATEL10,C10: COLOR, 4: PRINTERS (9) 
780 LOCATE!, L:ATTREO, 0: COLOP1,6:PRINTU$ € 
LUS (3) US C1); US (5) ;U$ (7); US$ (3) 

790 LOCATE!,2:COLOR1, B:PRINTUS (2) sU$ (4) ; 
U$(2);U$ 46): US (B}3 US$ (4) 

600 IFEX$="0" THEN 60TD 4000 

810 * CHOIY DE LA PIECE 

820 LOCATE!, 8: ATTRBO, 1: COLOR3, 0: PRINT"ch 
oississez la piece" 

830 LOCATE1L,10:PRINT"par son nusero" 

B35 VAS="X à 

B40 ATTREO, 1:LOCATEN, 5: COLOR2, 0: PRINTUSI 
NGVAS;VP$5: PRINT" Votre score" 

842 FOR I=1 FD 10:NEXT 

843 71=11#1 

844 CH=0 : CHY=INKEYS 

845 IF CH$=CHR# (48) THEN CH=10:HC=0 

8486 IF CH$=CHR# (49) THEN CH=I :HC=1 

647 IF CH$=CHR$(50) THEN CH=2 :HC=2 

848 IF CHY=CHR$ (51) THEN CH=3 :HC=3 

849 IF CH$=CHR$ (32) THEN CH=4 :HC=4 

850 IF CH$=CHR$(S3) THEN CH=5 :HC=5 

851 IF CH$=CHRS(54) THEN CH=b :HC=b 

852 IF CH$=CHR$(95) THEN CH=7 :HC=7 

853 IF CH$=CHRS (56) THEN CH=B :HC=8 

854 IF CH$=CHR$(37) THEN CH=9 :HC=9 

BSé IF ZZ=(ITHEN 843 

857 IF CH=0 THEN 843 ELSE B60 

658 PLAY"OSRE" 

859 FOR I=1 TO 10:NEXT 

840 ATTRBO, 1:LOCATE 1, 16: COLORS, 0: PRINT" 
Dans quel sens voulez-vous aller 7° 

B8S LOCATE!, 18:COLDRE, Os PRINT "appuyez su 
r la fleche correspondante" 

870 FDR 1=1 TO 10:NEXT 

880 D=0:D1=0:R=0 

899 K$=INKEYS 

900 IF X$=CHRS(8)- THEN D=-2:V=44 

910 IF KS=CHRS(9) THEN D=2:Y=46 

920 IF K#=CHR#(10) THEN D1=2:V=47 

930 1F X$=CHRS(11) THEN Di=-2:Y=45 

940 IFV=6 THEN 2200 

930 IF Y=0 THEN 890 ELSE 960 

960 LOCATE 1,20:COLOR1:PRINTUSINGVAS; VP$ 
°2PRINF" Vous avez choisi ";CHR$(22); CHR 
SV)" "5 HC 

970 Y=0:PLAY"O4S1T":COLOR7, 0: SC=5C+1 
990 LOCATE20,5:PRINTSC 

995 FOR I=1 TO250:NEXT 

1000 ” DEPLACEMENT DES FIECES 


1010 ATTRB1,1 
1020 ON CH GOSUB 1100,1200, 1300, 1400, 150 
0,1600,1700, 1800, 1900, 2000 

1040 ATTRBO, L:LOCATE24, 20: COLORO, 0:PRINT 


1050 ATTRBO, 0: LOCATE?, 22: COLORO, O: PRINT" 


1060 V=POINT (240,100) 

1070 GOTD 810 

10B0 END 

1100 ? DEPLACEMENT DE LA 1 ERE PIECE 
1105 IF D=2 THEN R=POINT((LI+K)48+38, (C1 
+K1)48+8) 

1110 IF D=-2 THEN R=POINT ((LI#K) 8-6, (CI 
+K1)4B+8) 

1115 IF D1=2 THEN REPOINT((LI+K) 48516, (C 
1+K1)48+28) 

1120 IF Di=-2 THEN R=POINT((LI+K)48+16, ( 
Ci+K1)4B-12) 

1123 IF RC-ITHEN 1170:6=1 

{127 ATTREI, 1 

1130 LOCATELI+K,C1+K1:COLDRO: PRINT" 
1133 LOCATELI+K,C1+2#K1:COLORO: PRINT" 
1140 K=K+D:K1=K1+D1 

1145 LOCATEL1+#K,Ci+K1: COLORE, L:PRINTAS 
1130 LOCATELI+K,C1+K1+2 : COLOR6, L:PRINTA 
$(1} 

1185 D=0:D1=0:RETURN 

1170 ATTRBO, O:LOCATEZ, 22: COLOR, 0: PRINT" 
Vous n'avez pas Le droit a ce coup" 

1173 PLAY"04L94D0" 

180 FOR 1=1 TO 400:NENT 

1190 RETURN 

1200 ?* DEPLACEMENT DE LA 2 EME PIECE 
1202 DEFBR#(30)=253,128,191,160, 160,160, 
187,164:DEFGR$(311=167, 184,187,160,160, 1 
91, 128,233 

1205 IF D=2 THEN R=POINT ((L2+K2) #B+20, (C 
24K3) 18+8) 

1210 IF D=-2 THEN R=POINT ((L2+K2)48-6, (C 
2+K3)18+8) 

1215 IF DI=2 THEN R=PDINT ((L2+K2)48+8, (C 
2+K3)18+30) 

1220 IF Di=-2 THEN R=POINT((L24K2) K8+8B, ( 
C2+K3) 48-12) 

1225 IF RC)-1THEN 1270:6=1 

1227 ATTRBI,1 

1230 LOCATEL2+K2, C2#K3:COLORO:PRINT" " 
1235 LOCATEL2+K2,C2+24K3: COLORO: PRINT" " 
1240 K2=K2+D:K3=K3+D1 

1245 LOCATEL2+#K2,C2+K3: COLORS, 6: PRINTERS 
(19) 

1250 LOCATEL2+K2,02+K3+2: COLORS, 6: PRINTG 
R$(20) 

1265 D=0:D1=0:RETURN 

1270 ATTRBO, 0: LOCATEZ, 22: COLOR, 0: PRINT" 
Vous n'avez pas Le droit a ce coup" 

1275 PLAY"D4L96D0" 
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REPAIRE 





1280 FOR 1=1 TO 400:NEXT 
1290 RETURN 

1300 ? DEPLACEMENT DE LA 3 EME PIECE 
1305 1F D=2 THEN R=POINT((L3+K4)#8+20, (C 
3+K5)48+8) 

1310 IF D=-2 THEN R=PDINT((L34K4)48-6, (C 
3+K3) 1848) 

1315 IF Di=2 THEN R=POINT((L3+K4) 4848, (C 
3+K3) 18+30) 

1320 IF Di=-2 THEN R=POINT((LS+K4) 848, ( 
C3#K5)48-12) 

1925 IF RC-1THEN 1370:6=1 

1327 ATTREI, 1 

1330 LOCATELS+K4,C3+K5: COLORO: PRINT" * 
1335 LOCATEL3+#K4,C3+2+K5:COLORO: PRINT" * 
1340 K4=K4+D:K5=KE+D! 

1345 LOCATEL3+#K4,C3+K5: COLORS, 4: PRINTGRS 
(19) 

1350 LOCATEL3+#K4,C3+K5+2: COLORS, 4: PRINTG 
R$(21) 

1365 D=0:D1=0:RETURN ; 
1370 ATTRBO, 0:LOCATE?, 22: COLOR, O:PRINT" 
Vous n’avez pas Le droit a ce coup” 

1373  PLAY"D4L96D0" 

1380 FOR I=1 TO 400:NEXT 

1390 RETURN 

1400 * DEPLACEMENT DE LA 4 EME PIECE 
1405 IF D=2THEN R=PDINT((L4+Kb) #B+38, (C4 
+K7)48+2) 

1410 1F D=-2 THEN R=POINT((L4+K8)48-6, (C 
4+K7)48) 

1415 IF D1=2 THEN R=POINT((L4+K6) 3416, ( 
C4+K7)4B+12) 

1420 IF Di=-2 THEN R=POINT((L4+K6) 48+16, 
{C44K7)48-12) 

1425 IF RO-ITHEN 147026=1 

1427 ATFREI, 1 

1430 LOCATEL4+KB,C4+K7:COLORO: PRINT" * 
1440 K&=Kb+D:K7=K7+D1 

1445 LOCATEL4+K6, C4+K7: COLOR2, 0: PRINTGRS 
(22);6R$ (23) 

1465 D=0:D1=0:RETURN 

1470 ATTRBO, O:LOCATEZ, 22: COLORI, O: PRINT" 
Vous n’avez pas le droit a ce coup" 

1475 PLAY"D4L96DD" 

1480 FOR 1=1 TD 400:NEXT 

1490 RETURN 

1500 ? DEPLACEMENT DE LA 3 EME PIECE 
1508 IF D=2 THEN R=POINT((LS+K8)48+20, (C 
5+K9)t8+B) 

1510 IF D=-2 THEN R=POINT((LS+KE) 8-6, (C 
J+K7)18+8) 

1515 1F DI=2 THEN R=POINTU(LS#KB) #B+B, (C 
S+K9) 48+50) à 
1520 IF Di=-2 THEN R=POINT((LS+KB) 4848, ( 
C5+K9) 48-12) 

1525 IF RO-1THEN 1570:6=1 
1527 ATTRPBI, 1 





REPAIRE 


1530 LOCATELS+K8, CS+K9:COLORO: PRINT" * 
1535 LOCATELS+KE, C5+2+K9: COLORO: PRINT" * 
1540 KB=K8+D:K9=K9+D1 

1545 LOCATELS+KB, C5+K9:COLOR4, b:PRINTGRS 
(24) 

1550 LOCATELS+KB, C5+K9+2: COL OR4, 6:PRINTE 
R$(21) 

1565 D=0:D1=0: RETURN 

1570 ATTREO, 0: LOCATE2, 22: COLORI , Os PRINT" 
Vous n’avez pas le droit à ce coup" 

1573  PLAY°O4L96D0" 

1580 FOR 1=1 TO 400:NEXT 

1990 RETURN 

1609 * DEPLACEMENT DE LA 8 EME PIECE 
1605 IF D=2 THEN R=PDINT((L6+K10)48+20, l 
CétK11) 1B+B) 

1610 IF D=-2 THEN R=POINT((LétK10)48-6, € 
Cé+K11)48+8) 

1615 IF DI=2 THEN R=POINT( (Lé+K10)48+8, ( 
Ch+K11)48+30) 

1620 IF Diz=-2 THEN R=POINT((L6+K10)48+8, 
{C6+K11148-12) 

1625 IF RC-1THEN 1670:6=1 

1627 ATTRBL, 1 

1630 LOCATEL6+K10, CbtK11:COLORG, 0: PRINT" 


1835 LOCATEL6+K10, Cb+2+K11 2 COLOROs PRINT" 


1640 KIO=K10+D:K11=K11+D1 

1845 LOCATELb+K10,C5+K115 COLOR7, 5: PRINTE 
R$ (24) 

1650 LOCATEL6+K10,Cb+K11+2:COLDR7,5:PRIN 
TGR$ (25) 

1865 D=0:D1=0:RETURN 

1670 ATTRBO, 0: LOCATE?, 22: COLOR, O: PRINT" 
Vous n'avez pas Le droit a ce coup" 

1875 PLAY"04L 7600" 

1880 FOR 1=1 TO 400:NEXT 

1690 RETURN 

1700 ? DEPLACEMENT DE LA 7 EME PIECE 
1705 IF D=2 THEN R=POINT((L7+K12)#8+20, { 
C7+K13) #8) 

1710 IF D=-2 THEN R=POINT((L7+K12) 48-4, ( 
C7#K13) 8+2) 

17153 IF DI=2 THEN R=POINT((L7+K12) #88, | 
C7#K13)4B+12) 

1720 IF Di=-2 THEN R=PDINT((L7+K12) 4848, 
(C7+K13)4B-12) 

1725 IF RO-ITHEN 1770:621 

1727 ATTRBI, 1 

1730 LOCATEL7+K12,C7+K13:COLORO: PRINT" * 
1740 K12=K12+D:K13=K13+D1 

1745 LOCATEL7+K12,C7+K13:CDLORS, 0:PRINTE 
R$ (8) 

173 D=0:D1=0: RETURN 

1770 ATTREO, O:LOCATEZ, 22: COLORI,0: PRINT" 
Vous n’avez pas le droit à ce coup" 

1775 PLAY"O4L96DD" 


___24 


1780 FOR 1=1 TO 400:NEXT 

1790 RETURN 

1800 * DEPLACEMENT DE LA B EME PIECE 
1805 IF D=2 THEN R=PUINT((LB+K14) #B+20, ( 
CB+K15) 8) 

1810 IF D=-2 THEN R=POINT((LB+K14) 8-4, ( 
C8+K15)48+2) 

1815 IF D1=2 THEN R=PDINT((LB+K14)48+8, ( 
CB+K15)4B+12) 

1820 IF D1=-2 THEN R=POINT((L8+K14)48#8, 
(CB+K15)#8-12) 

1825 IF RC-ITHEN 1870:6=1 

1827 ATTRBI, 1 

1830 LOCATELB+K14,CB+K15: COLORO: PRINT" * 
1840 K14=K14+D:K13=K15+D1 

1845 LOCATEL8+K14,C8+K15:COLDR6, 0: PRINTE 
R$(7) 

1855 D=0: D1=0: RETURN 

1870 ATTREO, 0: LOCATEZ, 22: COLOR, 0: PRINT" 
Vous n'avez pas le droit a ce coup" 

1875 PLAY"D4L96D0" 

1880 FOR I=1 TO 400:NEXT 

1890 RETURN 

1900 ? DEPLACEMENT DE LA 9 EME PIECE 
1905 IF D=2 THEN R=POINTU(L9+K16) #8+20, ( 
C9+K17) #B) 

1910 IF D=-2 THEN R=POINT((L+K16) 4-4, ( 
C9+K17)4B+2) 

1915 1F D1=2 THEN R=PDINT((L9+K16)48+B, ( 
C9+K17)98+12) 

1920 IF D1=-2 THEN R=POINT((L9+K16)88#8, 
(C9+K17) 98-12) 

1923 IF RCD-ATHEN 1970:6=1 

1927 ATTRBI,1 

1930 LOCATEL9+K16,C9+K17:COLORO: PRINT" " 
1940 K1b=K16+D:K17=K17+D1 

1945 LOCATEL9#K16,C9+K17: COLORS, 1: PRINTG 
R$ (8) 

1965 D=0:D1=0: RETURN 

1970 ATTREO, 0: LOCATEZ, 22: COLOR, 0: PRINT" 
Vous n’avez pas le droit à ce coup" 

1975 PLAY"O4L96D0" 

1980 FOR I=1 T0 400:NEXT 

1990 RETURN 

2000 * DEPLACEMENT DE LA 10 EME PIECE 
2005 IF D=2 THEN R=POINT((L10+K18) 40+20, 
(C10+K19) 48) 

2010 IF D=-2 THEN R=POINT((LI0+K1B)48-4, 
(C10+K19) #6+2) 

2015 IF D1=2 THEN R=POINT((L10+K1B)48+8, 
(C10+K19)48+12) 

2020 IF D1=-2 THEN R=POINT((LI0+K18) 48+8 
, {C10+K19) 48-12) 

2025 IF RC-ITHEN 2070:6=1 

2027 ATTRBI,1 

2050 LOCATEL10+K18,C9+K19:COLORO: PRINT * 


2040 KIB=K18+D:K19=K19+D1 
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2045 LOCATEL10+K18,C10+K19: COLOR , 4: FRIN 
T6R$ (9) 

2065 D=0:D1=0:RETURN 

2070 ATTREO, 0: LOCATEZ, 22: COLOR, O:PRINT" 
Vous n’avez pas Le droit a ce coup" 

2075 PLAY"D4L96D0" 

2080 FOR I=1 TO 400:NEXT 

2090 RETURN 

2200 CES 

2210 FORF =1 TO 6: 

2230 FOR 1=1 TO200:NEXT:LOCATE 13,1: ATTR 

B1,1:C0LOR F:PRINT"BRAVO "2: NEXT 

2240 ATTRBO, 1: LOCATE1 , 4:COLOR3: PRINTVPS: 
* VOUS AVEZ REUSSI EN ":GC:" COUPS" 

2250 IF SC=123 THEN 2280 

2260 IF SC>123 THEN 2300 

2270 IF SC€123 THEN 2320 

2280 LOCATE 1,8:COLOR2:PRINT"VQUS AVEZ E 
GALE LE RECORD ET C’EST UNE BONNE PER 

FORMANCE 

2285 PLAY"AOTAOAL24FAF APFALANPLA#PL2405D 

CPDOPLABFAL24RELEPOAL24LARLEPL24LAROSL TS 

RECAL 3PL24L A#L48SDL 400SRE#L24D0L6PL2404L 

ALAS" 

2290 GOTD 2340 

2300 LOCATE 1,8:COLOR2:PRINT"VOUS N’AVEZ 
PAS EGALE LE RECORD VOUS  AVEZ DEPASS 

ÊE DE ':6C-123;" COUPS ” 

2310 60TO 2540 

2320 ATTRBO, 1:LOCATE 1,8: COLOR2:PRINT "VO 

US AVEZ BATTU LE RECORD DE ";123-SC5" VO 

US ETES LE NOUVEAU CHAMPION" 

2330 PLAY"AOTAO4L24FAFAPFALA#PLA#PL2405D 

OPDOPLA4BFAL24RELEPO4L 24LA#LEPL24LANDEL SE 
REO4L3PL24LAHLA48S0L 400SRERL 24D0L 6PL 24041 

ALA#" 

2340 LOCATE1, 15:COLORG, O: PRINT" VOULEZ-V 
QUS:1=}> REJQUER" 

2350 LOCATE1, 18:COLOR3 4 0:PRINT" VOULEZ-V 
QUS:2=} ARRETER" 

2360 LOCATE12,22:COLOR1,0: INPUT" Votre ch 
oix";:GH 

2365 11=0 

2370 IF GH=1 THEN 2400 

2390 IF GH=}2 THEN END 

2400 ? PRESENTATION 

2410 CLS:SCREEN7, 0 

2420 LOCATEZ, 1: ATTRBO, C:COLOR1, 8: PRINTUS 
(D sUS CS) U8 (1) US$ (5) sU$ (7); US (3) 

2430 LOCATEZ, 2: COLOR, 6: PRINTUS (2) 5 LI$ (4) 
sU$ (2) s U6 (6) ;U$ (8) ;U$ (4) 

2440 PLAY"L12D0REMIFAGOLASILAFAMIREDO" 

2450 ATTRBI, F:LOCATEZ, 4: COLORE, 1: PRINTAS$ 

2460 LOCATE?, 6: COLOR, 1: PRINTAS (1) 

2470 LOCATEZ, 9: COLORS, 6:PRINTERS (19) 
2480 LOCATEZ, 11:COLORS, 6: PRINTERS (20) 

2490 LOCATE6, 9: COLORS, 4:PRINTERS (19) 
2500 LOCATE6, 11: COLORS, 4: PRINTERS (21) 


2510 LOCATE10, 9: COLORA, b:PRINTERS (24) 
2520 LOCATE10, 11:COLOR4, 8: PRINTERS (21) 
2530 LOCATE14,9:COLDR7, 5: PRINTERS (24) 
2540 LOCATE14, 11: COLOR7, 5: PRINTGRS (25) 
2550 LOCATEZ, 18: COLORS, 0: PRINTGRS (4) 
2560 LOCATE6, 18: COLORG, OC: PRINTERS (71 
2570 LOCATE10, 18:COLDRS, 1:PRINTERS (8) 
2380 LOCATEL4, 18:COLORI, 4: PRINTER$ (9) 
2590 LOCATE 2,14:COLDR4, 8: PRINTAS (2) 
2600 PLAY*L12D0REMIFASOLASILAFAMIREDC" 
2605 LOCATE 12,2:COLOUR6,0:PRINT" "5 VP$ 


cl 

2610 LOCATE12, 4: ATTRBO, 1: COLORO, 7: PRINT" 

C’est cette piece qui doit " 

2620 LOCATE12,6:PRINT"sortir en bas pour 
gagner " 

2630 ATTRBI, 1:LOCATE10, 5: PRINTCHRS (22); C 

HR$ (44) 

2640 ATTREO,1: LOCATE 18,8: COLOR4, 6: PRIN 
T'Pour cela vous devez " 

2650 LOCATE 18,10:PRINT'deplacer toutes 
ces ” 

2660 LOCATE 18,12:PRINT"pieces, une à la 
fois," 

2670 LOCATE 18,14:PRINT"en donnant le No 
de 1a* 

2680 LOCATE 18,16:PRINT"piece et en indi 
quant 

2690 LOCATE 18,18:PRINT"Ie sens avec une 
des ” 

2700 LOCATE18,20:PRINT"4 fleches  ";CHR 
$(22):CHR$(44)5"  "sCHRS 122) :CHRS (45) * 
“sCHRS(22) :CHRS(46);" "3: CHRS (22) ;CHRS (4 
7) 

2710 LOCATEÏ, 1 

2720 LOCATE 18,21: ATTRB0, 0: COLOR1,72PRIN 
T'N.Colace Fevrier 1986" 

2730 PLAY"L12DDREMIFASOLASILAFAMIREDO" 
2740 FORI=1 TO 300: NEXT 

2730 LOCATEO, 21: PRINT" 


2760 COLORO, 3:LOCATEO, 21: PR INTVP$3 : INPUT 
“ Voulez-vous voir la solution 0 ou N°5E 
k$ 

2770 CLS: SCREEN7, 0:RETURN 

3000 ?” SOLUTION: 1 ERE PIECE 

3010 ATTRB1, 1 

3020 LOCATEL1+K, C1+K1: COLOR, 0: PRINTAS 
3030 LOCATEL1+4K,C1+2+K1:COLORO, 0: PRINTAS$ 
(1) 

3040 K=K+D:K1=K1+D1 

3050 LOCATEL1+K,C1+K1:COLORE, 1: PRINTA$ 
3060 LOCATEL1+K,C14K1+2 :COLDRE, 1: PRINTA 
$t1) 

3070 D=0:D1=0:RETURN 

3100 ATTRBI,1:" 2 EME PIECE 

3110 LOCATEL2+K2, C2+K3:COLORO, 0:PRINTERS 
(19) 


3120 LOCATEL2+4K2, C2+2+K3: COL ORO, 0: PRINTG 
R$ (20) 

3130 K2=K2+D2K3=K3+D1 

3140 LOCATEL2+#K2, C2+K3: COLORS, 6: PRINTERS$ 
(19) 

3150 LOCATEL2+K7, C2+K3+2: COLORS, 6: PRINTG 
R$ (20) 

3160 D=0:D1=0:RETURN 

3200 ATTRBI,1:? 3 EME PIECE 

3210 LOCATEL3+K4,CS+K3: COLORO, 0: PRINTGRS$ 
(19) 

3220 LOCATEL3+K4,C3+2+K5: COLORO, 0: PRINTG 
R$(21) 

3230 K4=K4+D:K5=KS+D1 

3240 LOCATEL3+K4,C3+K3: COLORS, 4:PRINFGRS 
(19) 

3250 LOCATEL3+K4, CS+K5+2: COLORS, 4: PRINTG 
R$(21) 

3260 D=0:D1=0: RETURN 

3300 ATTRBI,1:? 4 EME PIECE 

3310 LOCATEL4+K6, C4+K7: COLORO, 0: PRINTGERS 
(22); 6R$(23) 

3320 Kb=Kbt+D:K7=K7+D1 

3330 LOCATEL4+K6, C4+K7: COLOR2, 0:PRINTGRS 
122); GR#(23) 

3340 D=0:D1=0:RETURN 

3400 ATTRBI,1:* 5 EME PIECE 

3410 LOCATELS+KB, Ca+K9s COLORO, 0: PRINTGRS 
124) 

3420 LOCATELS+KB, C5+2+K9:COLORO, 0: PRINTG 
R$(21) 

3430 KB=KB+D:K9=K9+D1 

3440 LOCATELS+KB, C5+K9: COLOR, Bb: PRINTERS 
124) 

3450 LOCATELS+KB, C5tK9+2:C0LUR4, 8: PRINTG 
R$(21) 

3460 D=0:D4=0:RETURN 

3500 ATTRBI,1:” 6 EME PIECE 

3510 LOCATELB+K10,C6+K11 2 COLDRO, Os PRINTG 
R$ (24) 

3320 LOCATELE+#K10,Cé+2+K1 1: COLORO, 0: PRIN 
TOR$(25) 

3530 K10=K10+D:K11=K11+D1 

3340 LOCATEL6+K10,C5+K1 1: COLOR7, 9: PRINTG 
R$ (24) 

3590 LOCATELE+K10,Cb+K11+2: COLOR, S:PRIN 
T6R# (25) 

3560 D=0:D1=0: RETURN 

3600 ATTRBI,1:? 7 EME PIECE 

3610 LOCATEL7+K12,07+K13: COLORO, O:PRINTE 
R$ (6) 

3620 K12=K12+D:K13=K13+P1 

3630 LOCATEL?+K12,C7+K17:COLORS, 0: PRINTG 
R$ (6) 

3640 D=0:D1=0: RETURN 

3700 ATTRPI,1:” B EME PIECE 

3710 LOCATELB+K14,CB+K15:COLORO, 0:PRINTG 
R$(7) 
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3720 K14=K14+D:K15=K15+D1 

3730 LOCATELB+K14,C8+K15: COLDRE, 0: PRINTE 
R$17) 

3740 D=0:D1=0:RETURN 

3800 ATTRPI,1:" 9 EME PIECE 

3810 LOCATEL9+K16,C9+K17:COLORO, O:PRENT 
GR$ (8) 

3820 K16=K16#D:K17=K17+D1 

3830 LOCATEL9#K16,C9+K17: COLOR, 1: PRINTE 
R$ (8) 

3840 D=0:D1=0:RETURN 

3900 ATTREI,1:? 10 EME PIECE 

3910 LOCATEL10+K18,C9+K19:CDLORO, Os PRINT 
6R$(9) 

3920 KIB=K1B+D:K19=K19+D1 

3930 LOCATEL10+K1B, C10+K19:COLORI, 4:PRIN 
TER$ (9) 

3940 D=0:D1=0: RETURN 

4000 FOR J=1 TO 123 

4005 NE=NP+] 

4010 READCH,FS 

4020 IFF$="M"THEND=D+2 

4030 IFF$="N"THEND=D-2 

4040 1FF$="O"THENDI=D1+2 

4050 1FF$="P"THENDI=D1-2 

4052 PLAY"OSL6DOREMIFA" 

4054 ATTRBO, L:LOCATE 2, 4: COLORS, O: PRINT" 
Noebre de coups";NB 

4056 LOCATE 2,8:COLOR2, 0:PRINT' Ouvrez gr 
and vos yeux” 

4058 LOCATE?, 12:COLOR6, 0:PRINF"Car cela 

va tres vite " 

4070 ON CH GOSUB 3000, 3100, 3200, 3300, 340 
0, 3500, 3600,3700, 3800, 3900: NEXT 

4075 IF NB>122 THEN LOCATE 10, 16: PRINTUP 
$ 

4080 IF NB>122 THEN LOCATEZ, 18: ATTRRO, 1: 
COLOR4,6: PRINT" J'espere que vous avez C 
onpris" 

4090 EXS="N":FORI=1 TD 2000:NEXT:G6010510 
4100 DATA 6,0,4,N,5,0,7,P,7,N,45Nob3P3 10 
PAL PU PEER PL PL PP PP LA CRIE 
A7 P 08 No TN ON 6 NB D 

4110 DATA 8,0,3,0,3,0,1,M,2,0573P575Psds 
PSP TN 10 N 56 N 3 Bo No 39 09433 63 Pa B3P 5 
0,M,10,0,6, 052,03 7538393 

4120 DATA 6,N,2,0,2,0,9, 039 P345 NN 85 
P,8,1,10,P,10,P,3,N,8,0,8,0,10,N,10,0,4, 
M4, 900575 N 393 P 923 P 3 23 P 33 N3 104 N3 105 Ds 
4,0,1,0,9,1,9,h 

4130 DATA 7,h,7,M, 993255601333 P5 10 N 31 
0,N,8,N,8,N,4,0,1,0:7,0,7,M,2,M33,P,35P3 
1 N 575057 09 Ps 05 305 28530 P 365 P 

4140 DATA 1,N,7,N,7,P,4,P,8,M,8,M, 10, M, 1 
0,M,1,0,7,N, 78 NN No 4373105 P5 10m la 
M,1,0 

11035 ATTRBO, 12 COLORS, 0: PRINTUSINGVAS:; VP 
$ 
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Ce programme permet de créer des polices de caractè- 
res pour Paragraphe sur TES. || accepte l'utilisation de la 
souris ou du crayon optique. 

Le programme commence par afficher un tableau conte- 
nant toutes les touches avec leur matrice équivalerite. 

A l'initialisation, la police utilisée est celle que manipule 
d'habitude l'ordinateur. 

Il suffit ensuite d'enfoncer une touche du clavier ou de 
sélectionner avec la souris ou le crayon optique une 
cellule pour voir s'afficher la matrice du caractère en 
grand ainsi que la valeur de chacun généré en grandeur 





nature, Pour modifier une autre matrice, il faut sélection- 
ner un caractère dans le tableau de gauche. En cliquant 
le pavé “EFFACER”, la matrice devient vierge (les 8 bites 
sont à 0). 

La fonction SAVE permet de sauvegarder la police à tout 
moment, elle peut alors être utilisée sous PARAGRAPHE 
ou modifiée avec la même programme. 

La fonction LOAD charge une police en mémoire pour 
être éventuellement modifiée. 

Pour ces deux dernières fonctions, le programme affiche 
les fichiers de type .ABC déjà existants sur la disquette, 


FisSAVE 





D1Mm0b1 1m 





CARACTERE 


TEO No 12 - MARS 1987 





Creacarac 


et demande le nom du fichier que l'on veut charger ou 
sauvegarder. En cas d'erreurs, la fonction est annulée. 
Pour utiliser une police de caractères sous PARAGRA- 
PHE, il faut insérer un fichier de type .ABC. Ensuite, il 
suffit de sélectionner la fonction “caractères utilisateurs" 
dans “facilités”. La police peut alors être utilisée norma- 
lement avec les autres fonctions de PARAGRAPHE. 
Mais attention, les caractères utilisateurs ne sont pas 
imprimables. 


Eric Miquelard. 


F2: LOAD 
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TOUCHE CORRESPONDANTE 


GENERE A 


0 CREATION DE POLICES DE © 
l CARACTERES POUR PARAGRAPHE! 
lnmsmmmnsmmer sms menu | 
! auteur : MIQUELARD Eric ù 
6” ! date : Lundi 20 octobre 1984 


8 CLEAR3000, ,101:DIN A(96,8) 

9 ON ERROR GOTO 10000 

10 CONSGLEO, 24,0, 2, 0: CLS: SCREENO, 6, 6:PAL 
ETTE13, 2618: PALETTEL, L5:PALETTES, 4085: PA 
LETTEO, O:PALETTEL1, 938:LOCATE 0,0,0 

20 ? HENTREE EN MEM DE LA POL DE BASE t 
t 

25 60SUB1000 

30 SAV=0:LOCATE 17,0, 0: COLOR, ,1:PRINT"F1 
2SAVE"; :LOCATES2, 0, 0: PRINT" F2: LOAD"5 COL 
OR, ,1 

35 FORI=67019STEP2: LOCATE18, I,0:PRINTHID 
SUEFFACER", (1-4)82,1)3:NEXTI:BOX (138, 36 
)-(158, 164) 

40 * #4 CONTROLE PERIPH. DU CLAVIER #4 
45 CONSOLE, , 5:00 

50 INPENX, Y 

95 A=(K@24)12448: B= (VER) 48 

57 IF PTRIG=-1THEN EXIT 

60 IF NTRIG(O) THEN EXIT 

65 IF MTRIG(1) THEN GOTO 700 

70 Z$=INKEVS: IF Z8C)"* THEN 130 

80 LINEUX-5, V)-(X45, V)2LINE (X, Ÿ-5)-(X, Ye 
5) 

90 1F XCI2OTHEN BOXF (A, B)-(A+15, 847) 

100 LINE(X-5, VI-(K#5, V):LINE (X, -5)-UX,Y 
45) 

110 IF NCI20THEN BOXF (A,B)-(4+15, 847) 
120 LOCP 

121 * ft TESTS APRES INTERRUPTION #4 

122 IF TEST=1 AND K)160 AND XC28B AND Y> 

36 AND Y164 THEN 500 

123 TEST2-0:1F Y6B=0 AND X)135 AND XC192 
THEN GOTO 300 

i24 1F V&B=0 AND K3255 AND X{312 THEN 60 
TO 400 





Compatible ? Oul, mals pour quoi 
falre et à quel prix ? Lisez l'orficle et si 
vous avez encore des questions, 
rejoignez-nous sur TEOmatic, 





123 IF TEST=1 AND X)138 AND KC158 AND Y> 
36 AND YC164 THEN GOTO 260 

127 IF XCB OR V€B OR (X)93 AND Y>39) OR 

Y}191 OR X)119 THEN 45 

130 IF Z$=CHR#(144) THEN EOSUR 300 

132 IF Z$=CHR$ (145) THEN GOSUE 400 

135 AA=X824:BB=Y@B: IF 2$)"" THEN C<ASC( 
1$):A=((C-51)823) #24: B=((C-32)MOD25) tB+8 
2ELSE C=S1+AAN2S+ER 

140 IF CC32 OR C>127 THEN 45 

150 CONSOLE, ,0:LOCATE 17,22,0:PRINT"TOUC 
HE CORRESPONDANTE": : COLOR, ,1:LOCATE39, 22 
9 0: PRINTCHRS (C) ; :COLOR, , 1:CONSOLE, ,5 

160 J=B:FOR I=A TO 160 STEP (160-A)/8:B0 
X(I,J9)-(I+168K,3+168K1:BOX(T,J)-CI+168K, 
JtibtK):J=Jt+(36-BIGB:K=K#+1NEXT I 

165 CONSOLE, ,0:K=0: BOX (160, 34)-(288, 164) 
170 J=36:FOR 1=160 TO 288 STEP 6:LINE(I 
,36)-(1,164)2LINE(160,7)-(288,19):J=J+1b: 
NEXT ! 

180 LOCATE 17,24,0:PRINT'CARACTERE GENER 
E"32LOCATE 39,24, 0:PRINTERS(C-31); 

210 IF TEST=0 THEN 230 

220 6OSUB 900 

230 TEST=1:CC=C 

240 6OSUB 900 

230 GOTO 45 

260 ? ft DESTRUCTION D'UN CARAC tt 

265 FOR I=1 TO B 

270 A=AC-31,1)2R=160:51=37+(1-1)416:52= 
51414 

271 IF À>=128 THEN BOXF (R+1,S1)-(R+19,52 
):4=A-128 

272 IF A}=64 THEN BOXF (R+17,51)-(R+31,62 
}:4=4-64 

273 IF A)=32 THEN BOXF(R+33,51)-(R+47,52 
):A=A-32 

274 IF A>=16 THEN BOXF(R+49,51)-(R+b3,52 
}:A=A-16 

275 IF A2=8 THEN ROXF (R+65,51)-(R+79, 52) 
sA=A-B 

276 IF A)=4 THEN ROYF(R+81,51)-(R+95,52) 
:A=â-4 
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277 IF A}=2 THEN BOXF(R+97,51)-(R+111,52 


):A=A- 

278 IF A=1 THEN BOXFCR+113,51)-(R+127,5 
2):A<A-1 

279 A(C-51,1)=0:LOCATES7, [4243, 0:PRINTUS 
ING'HHH" 3; A(C-31, 1); 

280 MEXT ! 

281 CD=C-51:DEFGRS (CD) =A(CD, 1), A(CD, 2), 
(CD, 3) ,A(CD, 4), A(CD, 9), A (CD, 6}, A(CD,7),À 
(CD, 8) 

282 CONSOLE, , 0 

283 LOCATE39, 24, 0: PRINTGRS(C-31) ; :LOCATE 
2+((C-32)623) 43, 1+((C-32)M0D23),0:PRINTG 
R#(C-31): 

284 GOTO 220 

300 ? 14 ENREGISTRER LA POLICE 44 

301 BOXF(137,1)-(190,6): CONSOLE, , 0 

305 SAV=1 

310 GOSUB 600 

315 IF NOM$="" THEN 360 

320 OPEN"D", #1, NOMS+". ABC" 

325 FOR 1=1 TO %6 

330 PRINT#1,CHRS(I+31) 5 

335 FOR J=1 10 8 

340 PRINT#1,CHR$(ACI,d)}; 

343 NEXT J,I 

350 CLOSE 

360 FOR J=1 T0 24:LOCATE 17,9,0:PRINTSPC 
(23)::NEXT J 

370 CONSOLE, , 9: BOXF (137, 1-(190, 6) : CONSO 


s1 
375 FORI=6TD19STEP2:LOCATELS, 1,0:PRINTMI 
DS L'EFFACER", (1-4)62, 1) ; :NEXTE: BOX (138,3 
83-1158, 164) 
380 SAV=0: TEST=0 
399 GOTO 45 
400 * #4 CHARGER UNE POLICE #4 
405 BOXF(257, 1)-(310,4) : CONSOLE, , 0 
410 GOSUB 600 
420 IF NOMS="" THEN 465 
425 NOMS=NOMS4SPACES (B-LEN(NOMS] ) 
430 FI=0:FOR 1=3 T0 16:5E8-DSKI5(0,20, 1) 
21F MIDS(SES,3,1)=CHRS (255) THEN 439 
431 FOR J=1 TO 255 STEP 32:SU8-NID$ (SES 
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J+8,3)21F FI=14 THEN EXIT 

432 IF MIDS(SES,J,8)=NOM$ AND SUS="ABC"A 
ND ASC(NIDS(5E$,d+12,1))>127 THEN BLOC=A 
SCCMIDS(SES, J+13, 1)):PIST=BLOCE2:SECT=(B 
LOC MOD2)48:60T0 440 

438 NEXTJ 

439 NEXTI:FOR1=2T04: LOCATE17, 1,0: PRINTSP 
C(22) s:NEXT:LOCATE17,2, 0: COLDR7:PRINT"F 
chier inexistant": :2WAITSHEZCR, 1 : CONSOLE? 
: COLORO: CONSOLEO: LOCATE17,2,0:PRINTSPC (2 
2}::G0T0465 ï 

440 SECTS=DSKIS(0,PIST,SECT+1):FOR I=1 T 
0 28:FO0R J=1 TD 8 

442 ACT, d)=ASC(MIDS(SECTS, (1-1)49+941,1) 
) 

444 NEXTJ:DEFGRS CI) =AUT, 1) ,A(1,2),AUI,3) 
AU, 4), AUS), AU, 4),A(1,7),A(1,8)2LOCA 
TEl+((1-1)623) 43, 1+( (1-1) MOD23), 0: PRINTE 
HRS(I+31):GRSUI) 3; :NEXTI 

445 SECTS=MIDS (DSKI$ (0, PIST, SECT+1),253, 
3)+LEFTS(DSK1$(0,PIST, SECT+2),6):1=29:F0 
R J=1TOB:A(I,J)=ASC(MIDS(SECTS,J+1,1)):D 
EFERS(II=A(T,11,A(1,2),A(1,3),A(1,4),AUT 
AU, 6), AT, 7),ACI,B)2NEXTI 

448 LOCATEI+((I-1)823)43,1+((I-1)M0D23), 
O:PRINTCHRS(I+31) 3 GR$(T)s 

447 SECT#=RIGHTS(DSKIS (0, PIST, SECT+2) ,24 
9):FOR 1=30 TO S6:FOR d=1 TD B 

488 AU, d)=ASCMIDÉ(SECTS, (1-30) 49+3+1,1 
}) 

449 NEXTJ:DEFGRS(I)=A(T, 1) ,ACI,2), AU, 3) 
AU, 4), AUS), A(1,6),R(1,7),A(1,B):LOCA 
TEL+((1-1)023)43,1+( (1-1) NOD23),0:PRINTC 
HR$(I+31)3 GR$UT) 3: NEXTI 

450 SECTS-MIDS (DEKIS (0,PIST, SECT+2),250, 
B)4LEFTS (DSKI$ (0, PIST, SECT+3),3):1=57:F0 
R J=1TOB:A(1,d)=ASCIMIDS (SECTE, J+1,1)):D 
EFGRSCII= AI, D), AU, 2),AC1,3),R(1,4),AÛT 
35), A(1,6),AUI, 7) ,ACI,B):NEXTJ 

451 LOCATEL+((I-1)623H43, 1+((1-1)MOD23), 
O:PRINTCHRS(I+31) ;GR$(1); 

452 SECTÉ=RIGHTS (DSKI$ (0, PIST,GECT+3),25 
2):FOR 1=58 TO B5:FOR J=1 TO B 

453 A(I,J)=ASCCMIDS (SECTS, (1-58) K9+J+1, 1 
)) 

454 NEXTJ:DEFGRS(T)=A(T, 1), AC1,2),AUT,3) 
AI, 4),A(1,5),A(1,6) ,A(1,7),A(1,8) :LOCR 
TEL+((1-1)823) 43, 1+ (1-1) N0D23),0:PRINTC 
HR (I +31): GR$(I) 5: NEXTI 

453 SECT#=DSKIS$(0,PIST,GEET#4):FOR 1-86 

T0 96:FOR 9=1 TO 8 

456 ACI,J)=ASCIMIDS(SECTS, (1-86) 89+]J+1,1 
}) 

457 NEXTJ:DEFGRS(II=AUT, 1), AU1,2), ACT, 3) 
AU, HAUTS), ACT, 6), AI, 7), AU, B):LOCA 
TE1+((1-1)823)48, 1+((1-1)N0D23), 0: PRINTC 
HRS(1+31)56R$ CT 3: NEXTI 

465 FOR J=1 TO ?4:LOCATE 17,49,0:PRINTSPC 
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(23)3;:NEXT J 

473 CONSOLE, ,3:BONF (257, 1)-(310, 6) : CONSD 

LE, ,0: TEST=0 

480 FORI=8TO19STEP2:LOCATE18, I,02PRINTMI 

D$"EFFACER", (1-4)62,1)3::NEXTI: BOX (138,3 

6)-(158, 164) 

499 GOTO 45 

300 ” ## MODIF D'UN CARACTERE tt 

305 TEST2=1 

310 CONSOLE,,5 

520 AX=((X-161)@16)416:AV=((Y-37)816) 116 
sBOXF(AX#161,AY+37)-(AN+175,AY+51) 

530 CONSOLE, , 0 

535 BA=(Y-161)@1b+1:BY=(Y-37)@16+#1 

337 IF POINT((BX-1)416+163, (BY-1)#14+39) 

=0 THEN SIGNE: ELSE SIGNE=-1 

540 AC(C-31),BV)=A(C-31), BY) +SIGNE#2" (8 

-BY) 

560 CD=C-31:DEFGR$ (CD) =A(CD, 1), AUCD, 2), À 
(CD, 3), À CCD, 4), À (CD, 9) ,A(CD, 6), A(CD, 7),AÀ 
(CD, 8) 

362 LOCATES7,BY#2+3, 0: PRINTUSING"#H# "3 A4 

C-31,BY); 

965 LOCATE 39,24, 0:PRINTGRS (CD) ; 

370 LOCATE 2+((CD-1)823)43,1+({CD-1) MOD 
23),0:PRINTERS (CD) ; 

380 GOTO 45 

600 ? tt ENTREEE DU NON DU FICHIER #à 

602 FOR J=1 TO 24:LOCATE 17,9,0:PRINTSPC 
(23);:NEXT J 

603 ROXF(20,6)-(30,24)6R$1100) : BOX (159, 4 

71-1248, 199) :BOXF (20,8)-(30,7)" *:BOX(15 

9,47)-(248, 64} :LOCATE20, 6: COLOR, , 1: PRINT 

“Fichiers “;sLOCATEZ0,7:PRINT" exista 

nts";: COLOR, , 1: BOF (21,9)-(28,23)" “eBOX 
(167,71)-(232,192) 

604 CONGOLE9,23:LOCATE 21,9,0 

609 FOR 1=3 TO 16:5E$=D6K1$(0,20,1):[F M 

ID$(SES,3,1)=CHR$(299) THEN 609 

608 FOR J=1 TO 245 STEP 16:SU$=MIDS(SE$, 

J+8,3):1F FI=14 THEN EXIT 

607 IF SU$="ARC" AND ASCIMIDS (SES, 1+12, 1 

))>127 AND LEFTS(SES, 1)CCHR6(255) THEN 

LOCATEZ1:FI=FI+1:PRINTMIDS (SES, J,8) 3 : LOC 

ATES8: PRINT 

60B NEXT 3 

609 NEXT I 

610 CONSOLEO,24:LOCATE 17,2:PRINT"Noe du 
fichier : "sLOCATE 17,3, 15 PRINT" "5: CU=1 
FOR Tel TO B:NOMS(T)=""2NEXT T 

620 DO:1$=INKEYS 

630 IF [$=CHRS(29) AND NOM$C)""THEN NOMS 

2LEFT$ (NOMS, LEN(NOMS) 1) : LOCATEPOS-1: PRI 

NT" “::LOCATEPOS-1: PRINT"; 

640 IF IS$=CHR$(ISITHEN EXIT 

650 IF I$=CHR$(12)THEN NOM$="":G0T0 695 

B6Ù IF 15€" * OR 1$)"z" THEN 1$="*:G0TD 

620 
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670 BEEP:NOM$=NOMS+I$:PRINTIS5;:IF LENCNO 
M$)=8 THEN GOTO 690 

880 LOCP 

685 GOTO 695 

690 DO:1$=INKEYS:1F IS=CHRS(13)THEN EXIT 
692 LOOP 

895 RETURN 

700 ” fit TRACe DE PAVe dt 

705 IF TEST2=1 AND X>160 AND X<2B8 ANDY} 
36 AND Y<164 THEN 710 ELSE GOTO 45 

710 XX=(X-161)616+1:YY=(V-37)@1b+12 IF XX 
-BX>0 THEN SGX=1 ELSE SEX=-1 

715 IF YY-BY)0 THEN SGY=1 ELSE SGY=-1 
720 FOR 1=EX TO XX STEP SEX 

723 FOR J=BY TO YY STEP 5GY 

726 IF I=EX AND J=BY THEN GOTO 740 

728 CONSOLE, ,5:BOXF((I-1)41b+161, (J-1)41 
6+37)-((1-1)416+175, (J-1)416+51) : CONSOLE 
0 

LE] 

730 IF POINT((I-1)916+183, (J-1)%1b+39)=0 
THEN SIGNE=1 ELSE SIGNE=-1 

733 AC(C-31),d)=A((C-31),d)+SIGNES2" (8-I 
):CD=C-31:DEFGRS (CD) =A (CD, 1),A(CD,2),A(C 

D,3),A(CD, 4) ,A(CD, 5), A(CD, 8), A(CD, 7), A(C 

D,8) 

738 LOCATES?, 4243, 0: PRINTUSING"###":A(C 

-31,d); 

740 NEXT 9,1 

730 LOCATE 39,24, 0: PRINTGRS (CD) ; 

760 LOCATE 2+((CD-1)823)43,1+((CD-1) MOD 
23), 0:PRINTERS (CD); 

770 TEST2=0 

799 GOTO 45 

900 * ti AFF DU CARACTERE POINTE tt 

902 CONSOLE, ,5 

903 IF TEST=1 THEN C=CC 

905 FOR I=1 TO B 

910 IF A(C-31,1)z0 THEN 962 

915 A=A(C-31,1) 

920 R=160:51=37+(1-1)416:52=51+14 

925 IF A>=128 THEN BOXF (R+1,51)-(R+15,52 
}:A<A-128 

930 IF A>=64 THEN BOXF (R+17,51)-(R+31,52 
):A=A-64 

933 IF A=32 THEN BOXF(R+33,51)-(R+47,52 
}:A=A-32 

940 IF A>=16 THEN BOXF(R+49,51)-(R+63,52 
}:A=A-16 

945 IF A><8 THEN BDXF(R+65,51)-(R+79,62) 
sA=A-B 

950 IF A)=4 THEN BOXF (R+81,51)-(R+95, 52) 

sA=A-4 

999 IF A2 THEN BOXF(R#97,51)-(R+111,52 
}:A=A-2 

960 IF A>=1 THEN BOXF (R#113,51)-(R+127,58 

2): A=A-1 

962 LOCATES7, 1#2+3, 0: PRINTUSING" #4"; AIT 

31,1); 


965 NEXT I 
967 CONSOLE, 0 

968 IF 2$C)"" THEN C=AGC(2$) ELSE C=314A 
A123+DB 

970 RETURN 

990 END 

1000 * dtstt DONNEES 14844 

1010 DATA 0,0,0,0,0,0,0,0:°" * 

1020 DATA 0,16,16,16,16,0,16,0:°! 
1030 DATA 0, 20,40,80,0,0,0,0:°" 

1040 DATA 0,40, 40,254, 40, 254, 40, 40: °# 
1050 DATA 0,16,124,144,124, 18,252, 16:°$ 
1060 DATA 0,98, 100,8, 16,38, 70,0:"% 
1070 DATA 0, 48,72, 48, 74,76, 58,0:°& 
1080 DATA 0,12, 12,24, 0,0, 0,0: °° 

1090 DATA 0,8,18,18,18, 18,B,0:” { 
1100 DATA 0,16,8,8,8,8,16,0:°) 

1110 DATA 0,0,84,54, 108,56, 84,0:°# 
1120 DATA 0,0,16,16,124,16, 16,0: + 
1130 DATA 0,0,0,0,12,12,16,0:", 

1140 DATA 0,0,0,0,124,0,0,0:°- 

1150 DATA 0,0,0,0,0,24,24,0:. 

1160 DATA 1,2,4,8, 14,32, 64, 128: / 
1170 DATA 0,60,70,74,82,98,60,0:° 0 
1180 DATA 0,8,24,40,8,B,60,0:°1 

1190 DATA 0,60, b,2,60,84,128,0:? 2 
1200 DATA 0,60, 68, 28,2, 48,60, 0:°3 
1210 DATA 0,4,12,20, 36, 126,4,0:°4 
1220 DATA 0,126,64, 124, 2,66, 60,0:°5 
1230 DATA 0,28,32,124,66,66,60,0:°b 
1240 DATA 0,126,4,8, 18,32, 64, 0: °7 
1250 DATA 0,60,66,40,86,66,40,0:’ 8 
1260 DATA 0,60, 66, 86,82,4,56, 0:79 
1270 DATA 0,0,24,24,0,24,24,0:°: 
1280 DATA 0,0,0, 12, 42,0,12,16:"; 
1290 DATA 0,8,18,32,32,16,8,0:°< 
1300 DATA 0,0,0, 126,0, 126,0,0:°= 
1310 DATA 0,16,8,4,4,8, 18,02? > 

1320 DATA 0,28,34,4,8,0,8,0:°? 

1330 DATA 0,60, 66,94, 82,92,62,0:°@ 
1340 DATA 0,24,36,66, 126,66, 86,02" A 
1350 DATA 0,124, 34,60,34,34, 124,0:°B 
1360 DATA 0, 60, 86,84, 64,86, 60,0: °C 
1370 DATA 0,124, 34,34, 34,34, 124,0: °D 
1380 DATA 0, 126,64, 120,64,64, 126,0: °E 
1390 DATA 0,126, 64, 120,64,64, 64,0: °F 
1400 DATA 0,60, 86, 84, 78, 66, 80,0:°6 
1410 DATA 0,66, 66, 126, 66, 86, 66, 0:°H 
1420 DATA 0,56,16,16,18,16,56,0:°1 
1430 DATA 0,2,2,2,2,66,60,0:°] 

1440 DATA 0,68, 72, 112, 80,72, 68, 0:°K 
1450 DATA 0,64,64,64,64, 64,126, 0:°L 
1480 DATA 0,66, 102,90, 66,86, 66,0:°M 
1470 DATA 0,66,98,82, 74, 70,68,0:°N 
1480 DATA 0,60, 66, 66, 66, 66, 60,0:°D 
1490 DATA 0,124, 66, 66, 124,64, 68,0: °P 
1500 DATA 0,60, 66, 66, 74, 68, 58,0:"0 
1510 DATA 0,124, 66, 86,124, 68, 6, 0:°R 


1520 DATA 0,40, 64,60, 2, bb, 80,0:°5 

1530 DATA 0,124, 16, 18,16, 16,16,02°T 
1540 DATA 0, 66, 66, 66, 66, 66, 60, 0:°U 
1550 DATA 0, 66, 66, 68, 36, 36, 24, 0:°V 
1560 DATA 0, 66, 66, 68, 90, 102, 66, 0:°M 
1570 DATA 0, 66,38, 24, 24, 36,66, 0:”X 
1580 DATA 0,68, 40, 14, 16,16, 16,0:°Y 
1590 DATA 0,128, 4,8, 16, 32, 126,0:°Z 
1600 DATA 0,56, 32, 32, 32,32, 56,0:°[ 
1610 DATA 128,64, 32, 16,8, 4,2,0:°\ 

1620 DATA 0,28, 4,4,4,4,28,0:°1 

1830 DATA 0,16,56,128, 16, 18, 16,0:°* 
1640 DATA 0,0,0,0,0,0,0, 2552" _ 

1850 DATA 0,0,0,255,0,0,0,0:"CNT+D 
1660 DATA 0,0, 56, 4,56, 68, 58, 0: a 

1870 DATA 0,64, 92,98, ë, 98, 92, 0:°b 
1680 DATA 0,0, 60, 66, 64, bb, 60, 02° c 

1890 DATA 0,2, 58,70, 66,70,58,0:°d 

1700 DATA 0,0,60,66, 126, 64, 80, 0:°e 
1710 DATA 0,12,18,16,124,16,16,0:"# 
1720 DATA 0,0, 60, 70, 70, 58, 2, 40:°9 

1730 DATA 0,44,92,98, 66,66, bb, 0:°h 
1740 DATA 8,0,24,8,8,8,28,0:°i 

1750 DATA 4,0,4,4,4,4,36,24:"j 

1760 DATA 0,32, 34, 36, 40,52, 34,02°k 
1770 DATA 0,24,8,8,8,8, 28,0:”1 

1780 DATA 0,0, 164,218, 146, 146, 146, 0:°n 
1790 DATA 0,0,76,50,34,34,34,0:°n 

1800 DATA 0,0,60, 66, éb, &b, 60, 0: 0 

1810 DATA 0,0,92,98, 66,98, 92,64:°p 
1820 DATA 0,0, 58, 70,70, 70, 58, 2:°q 

1830 DATA 0,0,92,98, 64,64, 64,0:°r 

1840 DATA 0,0,60, 64, 80, 2, 124,0:°s 

1850 DATA 0,16,56, 16, 16,18, 12,0:°t 
1860 DATA 0,0,6b, 66, 66, 70,58, 0:’u 

1870 DATA 0,0,66,6k, 66, 36,24, 0:°v 

1880 DATA 0,0, 66,66, bb, 90, 36, 0: w 

1890 DATA 0,0,66, 36, 24,36, 66,0:°x 

1900 DATA 0,0,66, bb, 102, 26, bb, 60: °y 
1910 DATA 0,0,128,4, 24, 32, 128,0: °z 
1920 DATA 0,12,8,8, 16,8, 8, 12:°€ 

1930 DATA 16,16, 16, 16, 16, 16,16, 162? CNT+F 
1940 DATA 0,48, 16,16,8, 16, 16, 48:°} 
1950 DATA 255,0,0,0, 0,0,0, 02” CNT#E 
1960 DATA 255,255,255, 295, 255, 255, 255, 25 
S:”CNT+P 

1970 DEFGR$ (100)=170, 85, 170,85, 170,85, 17 
0,85 

1975 COLORO, 13 

1980 BOXF (0, 01-115, 24)6R$ 100) 

1990 BOX(0,0)-(128, 199) 

1995 BOX (7,7)-(24, 192) :BDX (31, 7)-(48, 192 
):B0K 155, 7-(72, 192): BOX (79, 7)-(96, 1921: 
BOX (103, 7)-(120, 40) 

1998 COLORO, & 

2000 FOR 1=1 TD 9% 

2010 FOR J=1 T0 8 

2020 READ AU, 3) 
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REPAIRE 
































2030 NEXT J 
2040 DEFGRS(D)=ACI, 1, A H,2), AU, 9), AUX, 
4,401,5),A(1,6),A(I,7), AE, 8) 
2050 LOCATE 1+((1-1)823)43,1+((1-1) MOD 
23),0:PRINTCHRS(I+31);GRS (1); 
2060 NEXT I 
2070 RETURN 
10000 ” fi GESTION DES ERREURS ti 
10010 IF ERR=S5 THEN ER$="Valeurs interdi 
tes":G0SUP 11000:1F SAV=1 THEN RESUMES60 
ELSE RESUME465 
10020 IF ERR=50 THEN ER$="N fichier inut 
ilise":60SUB 11000:1F SAV=1 THEN RESUMES 
60 ELSE RESUME465 
10030 IF ERR:=53 THEN ERS="I/0 erreur “:60 
SUB 11000:1F SAV=1 THEN RESUME360 ELSE R 
ESUME485 
10040 IF ERR=5S THEN ER$="Noe du fichier 
"2EER$="incorrect":60SUB 11000:1F SAV=1 
THEN RESUME360 ELSE RESUME465 
10050 IF ERR=3B THEN ER$="Mauvaises donn 
ees":G60SUB 11000:RESUNE46S 
10060 IF ERR=60 THEN ERS="Peripherique n 
on":EER$="disponible":60SUB 11000:1F SAV 
=1 THEN RESUNES60 ELSE RESUME46S 
10070 IF ERR=62 THEN ER$="Fichier inexis 
tant":GOSUB 11000: RESUME46S 
10080 IF ERR=83 THEN ER$="Disquette plei 
ne":60SUB 11000: RESUME 360 
10090 IF ERR=85 THEN ERS="Repertoire ple 
in":60SUE 11000: RESUMES60 
10100 IF ERR=66 THEN ERS="Fichier deja e 
xistant”:60SUB 11000: RESUME360 
10110 IF ERR=70 THEN ER$="Table d’alloca 
tion":EER$="endoseagee":G60SUB 11000:1F 5 
AV=1 THEN RESUNE360 THEN RESUME46S 
10120 IF ERR=71 THEN ER$="Lecteur vide“: 
GOSUP 11000:1F SAV=1 THEN RESUMES40 ELSE 
RESUME 465 
10130 IF ERR=72 THEN ER$="Disquette prot 
egee":G60SUB 11000:RESUME 360 
10140 IF ERR=76 THEN ER$="Disquette non 
foreatee":60SUB 11000:1F SAV=1 THEN RESU 
MES60 ELSE RESUNE46S 
10150 IF ERR=77 THEN ER$="Mauvaise densi 
tee":G60SUR 11000:1F SAV=1 THEN RESUMES60 
ELSE RESUME465 
10160 GOTO 10000 
10170 END 
11000 * ## TRAITEMENT DE L’ERREUR #4 
11010 FOR 1=2 TD 4:LOCATE17, 1,0:PRINT" 
"s2NEXTI 
11020 LOCATE 17,2, 0:COLORI:PRINTERS: : LOC 
ATE17, S:PRINTEERS; : CONSOLE?, 24: COL ORO: CO 
NSOLEO, 24 
11030 ER$="":EER$="" 
11040 WAIT&HE7CE, 1 
11050 RETURN 


MONTAGE 


UN MONTAGE POUR PARTAGER 
UN OÙ DEUX LEP PAR 8 MO5 


Le but du montage est de 
charger 8 MO5 avec un seul 
LEP. Ce qui permet d’écono- 
miser 7 cassettes pour un 
même logiciel et/ou du temps 
si les micros étaient cha cu 
successivement. Ceci se r 

lise avec souplesse pour à 
profs d'informatique ; de plus 
le montage est bien adapté 
au travail de groupe car il 
permet par exemple de char- 
ger deux groupes de quaire 
micros avec deux LEP et deux 
logiciels. 


Repérage 
de la prise DIN du LEP 


1, commande du moteur LEP 

2. masse O voit 

3. lecture piste son 

4, lecture piste programme enregistré sur le LEP 


5. enregistrement par le LEP du programme fourmi par 
l'ordinateur. 


Fonction 

des enfrées-sorties 
1 ——<—. 1 
è --mMasse--- ? 

LEP 3 mn D 3 MO5 
4 > - 4 
5 —<-— 5 


Que se passe t-il quand on charge l'ordinateur ? Dans 

Li ordre chronologique on tape LOAD”” ou LOADM””" et 

ntrée. 

a) par la broche 3, le LEP signale sa présence en 
envoyant du +5V à l'ordinateur. Si non erreur périphé- 
rique absent. 

b) l'ordinateur met la broche 1 à l’état OV, ce qui a pour 
effet de mettre le moteur du LEP en route. 

c) le LEP par la broche 4 écrit le programme dans les 
RAM du micro (émet en série des signaux logiques 
codés D ou 5 volts). 

d) le LEP en même temps fourni le son audio par la 
broche 3. 


30 





ENTREE SORTIE Li 
E - lolo] : 


principe d'un buffer 


Le fonctionnement d’un buffer est simple, on peut l’assi- 
miler à un ampli logique. À son entrée, il consomme une 
très faible puissance, tandis qu'à la sortie il peut dissiper 
une plus forte puissance tout en suivant le niveau 
logique de son entrée. 

Dans un CI CMOS 4050 il y a 6 buffers. 


Fonction à recréer 


Pour plus de simplicité les explications porteront sur les 
ordinateurs 1 et 2. 


a) la broche 1 commande le moteur. Comme dans noter 
cas, il n'y a qu'un moteur de LEP à commander, un 
ordinateur maître assurera cette fonction. C’est pour 
cela que la broche 1 relie directement le LEP à 
l'ordinateur. 

Une information est prise sur la broche 1 par l'intermé- 

diaire d'un buffer pour limiter la puissance prise par le 

micro pour signaler par une LED à l'opérateur que 
l'ordinateur 1 est mis en chargement. 

La résistance R1 limite la tension dans la LED à 2 v, 

tandis que R10 polarise l'entrée du buffer à un niveau 

logique 1 pour éviter le fonctionnement intempestif dû 
aux parasites de la LED. 

Pour l'ordinateur esclave, il ne pilote pas le LEP, dons on 

peut directement alimenter une LED pour signaler la 

mise en chargement de celui-ci. 

b) la broche 2 : il n'y a pas de problème, elle est mise à 
la masse CV. 

c) la broche 3 : le signal audio fourni par le LEP est juste 
suffisant pour deux ordinateurs. Ce signal sera dispo- 
nible sur l'ordinateur 1 et 5. Tandis que la broche 3 
des autres ordinateurs on amène le +5V pour simuler 
la présence d’un LEP 

d) la broche 4 : le signal informatique. 

La puissance du signal foumi par le LEP est juste 
suffisante pour alimenter un ou deux ordinateurs. Îl 
faut donc regénérer le signal par un buffer. 


L’ensemble 
du montage 


Le montage de l'ordinateur 1 est identique au montage 
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Le montage pour les 4 premiers est le même pour les 4 
derniers. 

Le commutateur sélectionne pour les 4 demiers micros 
— en position 1, les signaux audio et programme du 
LEP1 où un même programme pour les B micros. 

— en position 2, les signaux du LEP2. LEP1 pour les 4 
premiers et LEP? pour les autres, 


Alimentation 


L'alimentation est ciassique. Les deux secondaires du 
transformateur TR sont mis en parallèle pour foumir la 
puissance suffisante sous JV. Les diodes D1, D2, D3 et 
D4 forment un pont redresseur, la capa C2 le filtrage et 
la régulation est faite par RG qui foumit à sa sortie une 
tension de 5 V à travers un fusible de protection FU. 


I faut utiliser un câble blindé à 3 conducteurs et des 
connecteurs DIN mâles pour les liaisons. 


Mise en œuvre 
du montage 


— Commutateur en position 1 (1-»8). 

On opère de façon habituelle pour la mise en charge- - 

ment des micros 2 à B. Les LED de contrôle signalent la 

mise en chargement de leur micro respectif, puis en 

dernier on réalise le chargement de l'ordinateur maître 

qui n'a pour effet que de mettre le LEP en marche. Une 

fois le logiciel chargé, le LEP s'arrête automatique. 

— Commutateur en position 2 (2-4). 

Le principe reste le même, le micro 1 maîtrise le LEP1, le 

micro 5 maîtrise le LEP2. 

— Ou encore le chargement d'un logiciel en plusieurs 

parties (tel l'Aigle d'On), il faut savoir que l'on ne peut 

relancer l'ordinateur maître que lorsque les ordinateurs 

À aies sont prêts. C'est-à-dire lorsque leur LED est 
umée. 


Le mafïériel 


! a ne doit pas coûter plus de 250 F. 
: transformateur 220V/9V 5VA 


L : interrupteur 

Di : diodes 1N4007 

RG : régulateur 7805 (5V) 

C2 : condensateur 470 uF 30 V 
Ci : condensateur 100 nF 

FU : fusible 100 mA 

LEDi : LED rouge 

R1à9 : résistances 220 ohms 1/4W 
R10,R11 : résistances 7 kito Ohms 1/4W 
CH,CI2 : CMOS 4050 

10 prises DIN femelles 

COM  : doublecommutateur. 


M. AOMAR 


Entrées . Sorties 


prenne mm em ———— 





4 |MICROI 







LEP | 
3 ! 3 
k | > P 
"IB 1 
à  |MICRO2 
! Re 4 
1 2 
dE 
1 à D—,, MICRO 
. 2x MONTAGE B 3-4 
Ra LR ee 
=. “A | . L MÊME MONTAGE QUE A 1 MICRO 
Ïl “ 5-6-7-% 
LEP 2 «——1i}| = 
FEMELLE MALE 


PRISE DIN CHÂSSIS 
COTE SOUDURES 


220% 
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MONTAGE 





SORTIES 1 
MICRO 


ENTREE LPE. ENTREE LEP2 


1x8 







"/>+ 2%4 


REGULATEUR DE TENSION RG 







" 2 ii 
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STOP!'# 


Ici revendeur spécialiste 


THOMSON © 
VIDEO 3e U1DEO 32 UiDEO je 








C'est aussi la C'est aussi le parrainage : 
THOMCARTE : pour tout parrainage supérieur 


la carte de fidélité qui donne 66 LE THOMSONISTE 35 à rs F., un logiciel gratuit 
pour le parrain. 


droit à 5 % de réduction. 
LE POIDS DES PROS 
LE CHOC DES PROMOS 


MATERIELS * : 


Unité centrale TO9 + _ 
TO9+ avec moniteur couleur 36 cm haute résolution iii 
Unité centrale TO8 “k 
Urite.-centrale NOG = nn nn pt 
Imprimante PR90-600 haut de gamme = %** 
Cable de liaison PR90-600 MO6/TO8/TO9/TO9 + ______________ 170F 
Lecteur enregistreur K7 TOB/TO9/T07-70/TO9 + _____________ 550F 
Extension MO5 + QDD intégré + fane 1290 F 
Quick Disk Drive TO7-70/MOS/TO8/MO6 850 F 
MN Pr | Souris TO8/MO6/TO9/TO9 + 350 F 
JOUPT W Fa Moniteur monochrome haute résolution _____1250F | TO8 : TOB, crayon opti- 
ee Lecteur enregistreur K7 TO7-7O/TO8/TO9/T08 + __________ 550F |ue, Quick Disk Drive, 3 
Drive 640 Ko 3“2 TO8 “** logiciels : Vol solo, Vampi- 
Controleur Drive 640 Ko 3“ TO7-70/MO5 490 F | re. Initiation au Basic … ** 
Cordon moniteur monochrome 85 F MO6 : MOG ON ect 
à ! 1 ï- 
Crayon optique TO8/MO6 120 F que, une manette de 4 


Moniteur couleur 36 cm HR 2490 F LR NN We 
Moniteur couleur 36 cm BR 2200 F | © lOGiciels : Animatix, Blue 


Imprimante à impact 40 col. PR90055 790 F | "2. Vol solo 
*Dans la limite des stocks disponibles. 


nninnnin ju TOUTES LES NOUVEAUTES “"Nous consulter sur place. Aucun 
MAN ( Û EN LOGICIEL prix ne sera communiqué par téléphone. 


SONT CHEZ VIDEO 32 


LE 























CELL TELL LAINE 














Pour toute commande par 
correspondance d’une 
configuration TO8, MO6 ou 
TO9 +, livraison sous 4 jours, 
: ANS FRAIS DE PORT. 
Et n'oubliez pas : < d 

Des dizaines de logiciels à 

Vous qui avez épuisé toutes les ressources de vos logiciels, nn VS epbt- 


vous en avez fait le tour dans son ensemble. 


Vous voulez vous en séparer [Il 
Vidéo 32 vous en donne l'occaslon. 7 P En 6 mois, 1650 Thomsonistes 


ont su nous faire confiance. 


Le 01.09.86 Vidéo 32 prend en dépôl tous vos logiciels originaux ei : Rejoignez-les … 
à moitié prix de leur valeur initiale. 
Lors de la revente de vos logiciels, 2 options sont possibles : 
@ remboursement en espèces ou en chèque, (maxi 500 F.) 
(20 francs de frais de participation par logiciel vendu). 


@ échange en Bon d'Achat, valable sur tous matérials et logiciels, û 
utilisable à tout moment (sans frais de participalion). VIDEO 32 est ouvert 7 Jours sur 7, 
Un relevé de votre compte vous sera remis et vous indiquera 


l'avoir en cours, y compris les jours fériés, de 14h à 20h. 


Ci-joint mon règlement : Total de ma 
Adresse …  ChéqueOlCCPO mandat] commande : 
… Code Postal F4 : 
… Configuration … . DITES ———F. 
No THOMCARTE 





U 1D E O 3e 32 rue de Lancry - 75010 PARIS - Tél : 42 00 14 63 - Métro : J. Bonsergent 


MONTAGE 







TEO:N 
No 


Quelle était 
une des particularités 
de J. Von Neumann ? 












A gagner : 
10 logiciels 
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TEOrN 


Qu'est-ce que c'est ? 


Un TEOFUN est un concours réduit à une question 
à laquelle Il faut répondre obligatolrement 
sur carte postale. 

Tout autre type de réponse sera refusée. 


Que gagnera-t-on ? 
Le nombre de lots et leur nature sont précisés 
sur chaque TEOFUN. 


Pour gagner, Il suffit de répondre à la question 
que vous découvrirez dans les pages de TEO. 


Les éventuels ex-cequo sont départagés 
por tirage au sort, 
La liste des gagnants sera publiée dans nos colonnes. 


La participation aux TEOfuns Implique une 
acceptation totale du réglement dont une version 
complète peut être obtenue au Journal. 


Une seule réponse par carte postale est autorisée. 
Les cartes comportant plusieurs réponses 
seront élminées. 

Par contre, ren n'empêche de concourir 
pour plusieurs TEOfuns, avis aux champlons 1 



























Adressez votre carte postale 
suffisamment affranchie 
avant le 31 mars 1987, 
date de la poste faisant fol, à: 








N'oubliez pos le n° 
de la question, 


k MIO Ne12 
c'est capital). TOfun 
Réponse : 26, rue Beaubourg 





75003 PARIS 


ES NOUVELLES FONCTION) 
DU MONITEUR DU T09+ 





Une programmation plus performante du THOMSON 
TO9 + sous- entend une connaissance approfondie des 
routines disponibles ce système, des points d'accès et 
la nature des paramètres admis en entrée et en sortie. 


Les adresses d'exécution de la plupart des routines 
disponibles sur le nouveau système THOMSON TO9+ 
sont identiques à celles du THOMSON TO 7, TO7/70. 
Cependant, en fonction de la nature des paramètres, 
certaines fonctions voient leurs capacités accrues. 


Les différents 
modes d'affichage 


Le mode nee est sélectionné par une commande 

ESC (ESCape, code 1Bh) : 

— le mode 40 colonnes, compatible TO7, TO7/70 est 
sélectionné par ESC 5Ah. la définition de ce mode 
est de 320 x 200 points en graphique, 25 lignes de 
40 colonnes en texte, avec 16 couleurs pour le fond, 
16 pour la forme, 16 pour le tour ; 

— le mode 80 colonnes est sélectionné par ECS 5Bh. la 
définition de ce mode est de 640 x 200 en graphique, 
80 x 25 en texte, avec une couleur pour le fond, une 
couleur pour la forme ; 

— le mode BITMAP 4 couleurs est sélectionné par ESC 
59h. La définition de ce mode est de 320 x 200 en 
graphique, 40 x 25 en texte. Cependant, la couleur 
de chaque point, limitée à quatre valeurs, est indé- 
pendante de celle du point voisin ; 

— le mode BITMAP 16 couleurs est selectionné par 
ESC 5Eh. La définition est de 160 x 200 en graphi- 
que. Ce mode est réservé aux applications nécéssi- 
tant l’utilisation d’une palette de couleurs variées ; 

— les modes PAGE 1 et PAGE 2 ; PAGE 1 est sélec- 
tionné par ESC 48H, PAGE 2 par ESC 49h ; 

— le mode OVERLAY superpose les modes PAGE 1 et 
PAGE 2. L'écriture en mode OVERLAY dans la page 
1 est sélectionné par ESC 4Bh, par ESC 4Ah dans la 
PAGE 2, Exemple : 


PRINT CHR$(27) :CHR${8H4A) 'selectionné OVERLAY 
PAGE2. 


PRINT “ESSAI” 
PRINT CHR$(27) ;CHR$(8&H4B) ‘sélectionné overlay 
PAGE1 


PRINT" D'ECRITURE" 

Les chaînes “ESSAI et “D'ECRITURE" sont placés dans 
les pages vidéo distinctes. 

En mode PAGE1, PAGE? et OVERLAY, la résolution est 
de 25x40 en texte, avec 2 couleurs seulement par 
page, dont une transparente pour chaque page. 


— le mode TRIPLE OVERLAY. Dans ce mode, l'écran 
est divisé en quatre pages avec une résolution de 
160 x 200 en graphique ; Le plan 1 est prioritaire par 
rapport au plan 2, lui-même prioritaire par rapport au 
plan 3... Les quatres plans sont superposés. Chaque 
plan est sélectionné par ESC 88h pour le plan 1, ESC 
89h pour le plan 2, ESC 8Ah pour le plan 3, ESC 8Bh 
pour le plan 4. Tous les plans ont la même couleur de 
fond, les couleurs de forme étant les couleurs 1, 2, 4 
et 8 pour les plans 1 à 4. 

Si vous disposez de l'interface d'incrustation, l'image 

vidéo sera visible au travers de tout élément d'image 

affiché en noir, qu'il s'agisse du bord, de la couleur de 
fond ou de forme. Ainsi, en affichant, pour exemple, des 
caractères rouges sur fond noir avec un bord noir, on 
peut afficher des sous-titres. La sélection de l'incrusta- 
ja est réalisée par ESC 6Dh, la désélection par ESC 


La routine PUTCS (E803h}, ne fonctionne pas dans les 
modes BITMAP 16 et TRIPLE OVERLAY. 

Les autres fonctions disponibles par ESC sont identi- 
ques à celles du TO7, TO7/70. 


Le clavier 


L'état du clavier est programmé en fonction du contenu 
du registre STATUS (6019h) : 


F6h  réinitialise le clavier avec CAPS LOCK en posi- 


tion on. 
F9h  CAPS LOCK on. 
CAPS LOCK off 


FAh 
Commuiation 
des banques ROM 


La routine permettant la commutation des banques 
mémoire ROM est située en COM$ (ECOSh) et admet en 
entrée : 

registres 6809 U et À 

Elle permet de choisir une des banques ROM située 
entre les adresses 0000h et 3FFFFH. Chaque banque 
donne accès aux différentes applications foumies avec 
le système. Le registre U contient l'adresse de la routine 
à exécuter, le registre À contenant une valeur définie 
par : 


octet -- SS-- BB (8bits) 
if xx  cartoucheexterne 
-- (00 BASIC 128 
—— 01  Extramoniteur 
— 10 asic 1 
—— 11 Exploitation des fichiers 
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TECHNIQUE 


(-- indique une valeur différente de 11} (xx est fonction 
de la banque mémoire en ROM. L'adresse 0020h donne 
le numéro de banque [O..3] sélectionné lorsque plusieurs 
Er de 16k sont disponibles en parrallèle dans un 
slot). 


Appel de l’extramoniteur 


L'accès de l'extra-moniteur (tracé d'élipses, cercles, 
remplissage, etc.) est réalisé par exécution de la routine 
EXTRA$ (ECOCH), avec en entrée : 

registre 6809 B 

registre pages 6100 

à 62FFh selon la routine (voir spécifications de l'extra- 
moniteur, 


En sortie : 


registre 6809 B 
registres pages 6100H à 62FFH selon la routine. 


En entrée le registre B contient le numéro de la routine à 
éxécuter, en sortie il contient le cas échéant un code 
d'erreur. 


Le modem 


Le modem est équipé d'un modulateur/démodulateur 
monochip EFB 7513 EFCIS (constructeur THOMSON). 
La sérialisation/désérialisation entre le modem et l'unité 
centrale est effectuée par un ACIA 6850. Les différentes 
fonctions de ces deux circuits sont contrôlées par le PIA 
6821. Le circuit modem est câblé pour les protocoles 
V23 et V24 (1200/75 bds, 75/1200 bds et 1200/1200 bds 
half duplex). Les quatres adresses permettant le contrôle 
du modem par l'intermédiaire du PIA sont : 

PORTA  E7F8h port A/direction À PIA commande 
COMMA E7F9h registre contrôle À PIA commande 
PORTB E7FAh portB/ direction PIA commande 
COMMB E7FBh registre contrôle B PIA commande 
Sur le PIA 6821, le contrôle du bit b1 du port B (bome 
11), programmé en sortie, permet de générer le signal 
de numérotation ; CA (bome 14) active la prise de ligne 
par l'intermédiaire de b4 du port B ; 

Les fonctions de l'ACIA sont accessibles par les adres- 
ses suivantes : 

E7FEh registre du contrôle 

E7FFH registre de données. 

Pour plus d'informations d'informations concemant la 
programmation et les caractéristiques du PIA 6821 et de 
l'ACIA 6850, se reporter à l'ouvrage : “le MICROPRO- 
CESSEUR 6809 ses périphériques” par Claude DAR- 
DANNE éditions Eyrolles. 


D'après notice SIMIV 1.12.8 
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REPAIRE 


Votre TO déguisé en machine à 
affûter les méninges. En route 
pour l’émission des Chiffres et 
des Chiffres. Il vous suffit de 
taper le programme et de suivre 
les indications autosuffisantes. Il 
vous faudra le crayon optique. Il 
est facile de modifier le pro- 
gramme afin qu’il utilise le cla- 
vier. Pour un MOS, il faudra peut- 
être adapter la gestion de lFécran 
et du crayon optique. 


M. DEMONTOUX 





CHOISISSEZ VOTRE NIVEAU DE DIFFICULTE: 


DEBUTANT (25 Sec) | 
MOYEN (20 5ec) ET 
BON (45 Sec) En 


APPUYEZ SUR UNE TOUCHE 


1458 - 32 = 126 
VOTRE REPONSE: 126 
ERAVO 


APPUYEZ SUR UNE TOUCHE 





CALCUL MENTAL 


O "###Née CALCUL MENTAL PAR G,0EMONTOUX 
S CLS:SCREEN 0,0,0:FOR C=1 TO 7 

10" BUA(C, C2 CHU LC, e4-C)2 "C9, CO, O:MEXT C 
20 ATITRB1,1:LOCATE 10, 10: PRINT”CALCUL” 
30 LOCATE 16,14: PRINT”MENTAL" 

4O FOR I=Q TO e0O0O0:NEXT I 

50 SCREEN 1,0,0 

100 ‘HER NMUNMMCHOIX DE L'OPERATION 
110 2=0 

180 CLS 

130 SCREEN 3,0,5:LOCATE 7,6:ATTRBO,1:PRI 
NT"ADDITION” 

140 LOCATE 7,10:PRRINT”"SOUSTRACTION” 

150 LOCATE 7,14: PRINT MULTIPLICATION” 
160 LOCATE 7,18:PRINT”MELANGE DES TROIS” 
170 LOCATE 3,02:ATTRBO,0:COLOR , ,0: PRINT 
"CHOISISSEZ AVEC LE CRAYON OPTIQUE” 

190 PENO; C(256,40)-C280, 56) 

200 PEN1;C256,72)-Ce80,88) 

210 PENE; C656,104)-C280, 120) 

220 PEN3; (256,136)-C280, 168) 

230 BOXFC256,40)2-C280,56),7 

240 BOXF(256,72)-(C280,88B),7 

250 BDXF(C256,104)3-C280, 1820), 7 

260 BDXFC256,136)-(C280,158),7 

270 ONPEN GOSUB 1000, 2000, 3000, 4000 

S00 ?#####MUENEMMMCHOTX DU NIVEAU DE JEU 
S10 ELS 

S20 SCREEN 3,0,5:ATTRBO, O0: LOCATEO, 5:PRIN 
T’CHOISISSEZ VOTRE NIVEAU DE DIFFICULTE: 
530 ATIREO,1:LOCATE 8,10: PRINT”DEBUTANT 
Ce5 Sec)” 

S4O LOCATE 8B,14:PRINT"”MOYEN (CeO Sec)” 
550 LOCATE 8,18:PRINT"BON C15 Sec)” 

560 PENO; (256,72)-C280,88B) 

570 PEN1; (256, 104)-C280, 120) 

S80 PENE; C(256,136)3-(280,1582) 

590 BOXF(256,7e)-C280,8B),7 

600 BDXF(256,104)3-C280,120),7 

610 BOXF(256,1356)-C280,152),7 

680 ONPEN GOTCO 650, 700, 750 

650 T=25: RETURN 

700 T=20: RETURN 

T=15: RETURN 

'ÉÉÉENENEENEEEMANALYSE DE LA REPONSE 


LOCATE 5,14:ATIRBO, 0,0: INPUTWAITB60: 
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T,”"VOTRE REPONSE: ”,R 

840 IF R®RES THEN UNMASK: LOCATE 15,18:AT 
TRB1 , 1: PRINT BRAUD” : RETURN 

850 UNMASK : IF RC>RES THEN EwE+1:UNMASK:L 
OCATE 4,20: ATTRB1, 1: PRINT” INEXACT ” : GOTO 
870 

860 UNMASK : LOCATE 1,20:ATTRB1,1:PRINT”"TR 
OP TARD” : E=E+1 : PLAY”L3OUDOREMIFASOLAS10S 
DOREMIFASOLASI ” 

870 ATTRBO, O0: AÿS=”"ERREUR ” : B$= "ERREURS ” 
880 IF E=1 THEN LOCATE 20, 20: PRINT "UDOUS 
AVUEZ” ;E;A$ ELSE LOCATE 20, 20:PRINT"UDUS 
AUEZ” ;E; BS 

8930 RETURN 

1000 CLS ; E=O : ? #40 346 mé de 6e NN 6 et ADD À T I ON 
1010 GOSUB 500 

1080 FOR W=1 TO 10 

1030 LOCATE 9,68: ATTRBO, 0: COLOR, ,1: PRINT 
"APPUYEZ SUR UNE TOUCHE” 


1040 IS=INKEYS:1IF 18=°” THEN Y=RND:GOTO 
1040 

1050 SCREEN 0,8,2:A=INTCRND#9B89)+11 

1060 B=INTCRND#889)+10 

1070 RES=A+B 

1080 CLS:ATTRB1,1:LOCATE 3,10:PRINTA”+"B 
1030 LOCATE &66,10:ATTRB1,1,1:PRINTRES 
1100 GDSUB 800 

1110 IF 2Z<>0 THEN 2=2+1:G0T0 4020 ELSE N 
EXT U 


1120 GOTO 5000 

2000 CLS:E=0: "wma SOUSTRACT IDN 
2010 GOSUB 500 

8020 FÜR W=1 TO 10 

2030 LOCATES, 82: ATIRBO, O: COLOR, ,1: PRINT" 
APPUYEZ SUR UNE TOUCHE ” 


2040 IS=INKEYS:IF 1IS="" THEN Y=RND:GOTO 
2040 

2050 SCREENO, 3,3:A=INTCRNOB89)+111 

2060 B=INTCRND“SB)+1 

2070 RES=A-B 

2080 CLS:AITRB1,1:LOCATE 3,10:PRINTA"-"B 


2030 
2100 
2110 
EXT UW 


LOCATE 26,10:ATIRB1,1,1:PRINT RES 
GDSUB 800 
IF 2<>0 THEN Z=2+1:6010 4020 ELSE N 
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2180 GOTO 5000 

3000 CLS:E=0: ? #4 MULTIPLICATION 
3010 GOSUB 500 

3020 FOR W=1 TC 10 

3030 LOCATE 8,28: ATTRBO,0:COLOR , ,1:PRIN 
T'APPUYEZ SUR UNE TOUCHE” 

3040 IS=INKEYS:IF 1$="”” THEN Y=RND:GDTO 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
EXT W 

3120 GOTO 5000 

4000 CLS:E=0:2=1: "#####MELANGE DES TROIS 
4010 GGSUB 500 

HOP0 IF Z= 11 THEN FOR 1=1 TO e000:NEXT: 
GOTO 5000 

4050 M=INTCRND#3)+1 

4060 IF M=1 THEN GOTO 1030 

4070 IF M=e THEN GOTO 2030 

4080 IF Mæ3 THEN GDTD 3030 

SOOC ? Meme 0e ME Me ee MEME RUN IN DE PARTI 
5005 FOR I=1 TO 1S500:NEXT 

5010 CLS:LOCATE 7,10:ATTRB1, 1: SCREENS, 0, 
O:PRINT”C’EST TERMINE” 

5020 ATTRBO,O:LOCATE 7,15: PRINT”UOUS AVE 
Z”;10-—E ; "REPONSES JUSTES” 

5030 ATIRB1,1:1F E=0O THEN LOCATE 8,e0:PR 
INT”SUPER GENIAL”:G0TD 5060 

5040 ATIRB1,1:1F E>O AND E<=S THEN LOCAT 
E O,20:PRINT"”ON PEUT FAIRE MIEUXI ” : GOTDO 
5060 

5050 ATIRB1,1:1F E>5S THEN LOCATE B,20:PR 
INT”PAS TERRIBLE” 

5060 SCRÉENS, O, 0: ATTRBO, 0: LOCATE10, 23: IN 
PUT"UOULEZ-UOUS REJOUER” ; R$ 

5070 IF LEFITSCR#,1)=”"0" THEN GOIQO 100 
5080 CLS:LOCATE 2,2: PRINT”ALORS..."”:FDR 
I=1 TO eO00:NEXT 

5090 LOCATE 7,€0:COLOR S:ATTRE 1,1:PRINT 
” AU REUDIR ...”:RITRB 0,0:LOCATEO, 22,0 
6000 END 


SCREEN 0,6,6:A=INTCRND*98B)+11 
B=INTCRND#9)+1 

RES=A#B 

CLS: ATTRB1, 1: LOCATE3, 10: PRINTA"X"B" 


LOCATE 26,10:ATTRB1,1,1:PRINTRES 


GOSUB 800 
IF Z<>0 THEN Z2=2+1:GDTD 4020 ELSE N 
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LOGO 


RALÇGUL 
DU JOUR 
DE LA SEMAINE 


L’Editeur 





I fournit un jour dans la semaine à artir d'une date 
entrée au clavier. La référence de départ est le lundi 
01/01/1900. 


? J0? >DATE 
JO MO AN ? 25 12 87 
VENDREDI 


Deux procédures sont imbriquées. 


— J0? 
Donne le nom du jour en fonction d'un numéro ; 
type commande ; 
un paramètre numérique ; 
exemple : ? JO ? 1 
donne LUNDI 


Une procédure appelée : 

— [JO 
Procédure d'initialisation qui donne des choses 
{noms de jours) à des chiffres compris entre O 
(DIMANCHE) et 6 (SAMEDI). 
Un conflit n'est pas à écarter avec un travail en 
hexadécimal. 


— >DATE 


Demande une date de format JJ MM AA et rend 
un numéro de jour ; 

type opération ; 

pas de paramètre ; 

exemple : ? 

EC >DATE-JO MO AN? 1 1 0 

(pour 01/01/1900) - 1. 


Quatre l'a appelées : 
— J/WA 


Reçoit en paramètre la liste réponse :JMA et 
rend une somme de jours. 


— JAN 
Reçoit en paramètre:JMA tronqué de d. 
Elle rend la somme de quatre termes ; 
365 X AN; 
QUOIT (AN-1) 4, ce terme correspond au nombre 
d'années bissextiles écoulées ; 
/MO ‘MOIS, ce terme traite les mois entiers 
écoulés ; 
BISS prend en compte une année bissextile en 
cours. 

— /MO 
Cette procédure rend un nombre de jour qui 
pour mois < 4 ne pose pas de problème. Après, 
la symétrie juillet/août a été utilisée pour réduire 
les tests. 

— BISS 
Cette procédure rend 0 ou 1 selon que l'année à 
traiter est bissextile ou pas, et que le mois de 
février a été dépassé ou pas. 
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EC CJOURS J CHANDRU 9/2/87) 


POUR >DATE 
TAPE PH "JO FH 
RENDS J/M/A LL 
FIN 


"MO PH “AN "? 


POUR J/M/A 3JMA 
RENDS SOMME FKREM 
FIN 


1JMA JAN SP 193MA 


POUR /AN MA 

2-1 ajustage bissextile 

RENDS SOMME FROD 365 DER :MA SOMME QUOT 
DER 3MA — 1 4 SOMME /MD FREM : MA BISS 
FIN 


POUR /MD M 

SI M < 2 CRENDS O0J 

GI :M < 35 CRENDS 51) 

SI 5M < 4 CRENDS 59] 

SI :M < 9 CRENDS SOMME 59 SOMME PROD 30 
M — 35 QUOT M — 2 2] 

RENDS SOMME 212 SOMME PROD 350 3M — 8 (| 
ÜOT sm — 7 2 

FIN 


"DIMANCHE 
"LUNDI 
"MARDI 
"MERCREDI 
"JEUDI 
"VENDREDI 
“SAMEDI 


POUR 907 3N 

SI NON NOM? 6 CIJO] 
EC CHOSE RESTE 3N 7 
FIN 


D_E D A L E 


C'est un jeu de réflexion basé sur le casse-tête. 
Voir page 22. 


cr 
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CALCULER 
DE L'ARC 
TANGENTE 


L'éditeur “ARCTG 


C'est un utilitaire indispensable à qui cherche à gérer la 
Tonue en fonction de sa position sur l'écran. Elle peut 
alors se transformer en fusée. 


— ATG 
Rend un angle au standard de la primitive CAP ; 
type opération ; 
paramètres : deux nombres X et Y : 
exemple : 
? EC ATG-10-17.3 
210 





Procédures appelées : 

— ATG? 
Détaille les tests à prendre en compte pour 
identifier les 8 secteurs possibles et admissibles. 
La série utilisée a une étendue de validité très 
limitée (-1 à +1), Elle appelle le calcul soit avec 
X/Y, soit avec Y/X. 

— "ATG 
Demande 2 paramètres : le quotient et son carré ; 
rend l'estimation faîte par la série classique. 

— ARCY- 
Rétablit le résultat pour les quotients de nom- 
bres négatifs. 

— ARC+ 
Rend des arcs toujours positifs. 


J. CHANDRU 




















EC ‘ARCTG 


POUR ATG 5X 5:Y 

SI EGAL? :Y O [SI PLG? 5X O CRENDS 90] C 
RENDS 2701] 

RENDS  ATG? DIV 5X &Y 

FIN 


POUR ARC+ :R 
SI FPLF? :R O CRENDS 360 + :R1I 


FOUR ARCY- :R 

SI PLP? 5Y O CRENDS 180 + 
RENDS :R 

FIN 


3RJ 


POUR ATG? 10 

SI ET PLG? 30 -1 PLP? 50 1 CRENDS ARC+ A 
RCY-— XATG :Q SCOR :0J 

SI PLP? :Q O CRENDS DIFF 270 ARCY- XATG 
DIV 1 :Q SOR DIV 1 :Q] 

SI PLG? :Q O CRENDS ARCY- DIFF 90 XATG D 
IV 4 :Q SGR DIV 1 :0) 

FIN 


FOUR XATG 3Q 5:02 

RENDS PROD :Q SOMME S57.2881 PROD :Q2 SOM 
ME -18.9247 FROD :Q2 SOMME 10.532713 FROD 
:Q2 SOMME -4.8777 PROD :02 1.119376 

FIN 


POUR SCOR :0 
RENDS PROD :0. :0 
FIN 


0002 
A7h5 
A7DC 
ZLAS 
21A7 
2140 
Z1AB 
21A1 
21AS 
21:F1 
æ1F0 
21F2 


21F3 


21F7 
2LEF 


227D 
2140 
2108 
2268 
2368 
216H 
2185 
2175 
0000 


0014 
0018 
0019 


oo1c 
o01D 
0018 
001A 
0041 
003F 
0000 
COFF 
00FF 
0000 


0000 
O0FF 


0000 
0001 


co02 
0003 


007€ 
o07D 
0078 
0078 
0081 
0080 
0082 
0083 
0084 
0085 
0088 
0087 
OD41 
0021 
co18 
0000 


0000 
0001 
0002 
0003 
cû0a 
0005 
0006 
0007 
0008 
0009 
D00A 
0008 
000€ 


TECHNIQUE 





(En plusieurs épisodes, suite des précédents numéros) 


Tout sur l’Exframoniteur 


Quatrième épisode : Une aufre façon de programmer 


PTTTITIIIILILII LEE LEP DELLE EEE EEE LES 

# UNE AUTRE FACOS DE PROGRANKKER * 

BURSSSENISTSIELDNREIENNENSESOILNPMOTEN NN 
INCLUD 0: EQUATESK 


RACE RO AE ROR AE R DD ARC ANNE KO ORNE NE 
#EQUATES at FROGRAMMES D'INITIALISATIONS 
RRSTERSÉTEÉEEEEN RÉ UUEESIÉSESNOCSITER 











PUTC EQU s0z AFFICHAGE 

GATAS  EQU SA7AS Fegintre 

RA7LC  EQU SA7DC un, 

xL EQU S2145 BORD GAUCHE 

Y EQU S21A7 BORD HAUT 

XR QU #21A0 BORD DROIT 

YT EQU A21AB BORD BAS 

XXXXX BQU B2LAL Ordonn 

YYYYY  EQU 22143 Abaciui 

AXER EQU #21pP1 Rayon borizontsl 
AXEV EQU #21F0 Rayon vertical 
CAMFLO EQU s21F2 Drapeau Conplet” 
% camembort 

ALFHAL BQU $21F3 Angle de dapart 


% quand l'option camembert est choisi 
EQU 









ALFHA2 : EQ S21F7 Angle d'arrives 
PILFLG EQU #21EF Drapaau Plein/ 

# vide 

MACP  EQU 1227D Adreeod du motif 
TRATYP EQU #2)A0 Type de trace 
COLOR EQU 22107 Couleur 

VITR EQU 32208 Dre u de couleur 
DEBZOM EQU 3210B De le ZONE 
FIMZONR EQU 32108 Fin de zone 
ZPERR EQU 92185 Rattrapaga 
BAVSTK EQU 22175 Pile Systens 
FESETC EQU #00 Fauet 


BRRASC EQU #14 
CIRCLE EQU 24T 
PSETXY EQU 2sT 
* de renplissnge 
CHOIX EQU 28T 
PALNT EQU 207 


KBBBAGE D'ERREUR 
Cercle ou ellipse 
Point 


Routine Choix 
Routine PAIRT 


BOX  EQU 27T Fectangle 
LIRE  EQU 207 Ligne 
F1R EQU esT Chsine-> flottont 


HOVHF  EQU esT FAC 
Vins EQU 00 
PLHIN EQU SFF 
CANENB ÉQU sr Canenbart 
COMP  EQU où Complet 
* roroctera de rempliesapge 
VIDE EQU 00 
PLBIR EQU SFr 
*TYPE DE TRACE 

La 


2? menoir 





HORKAL HQU Form 
TRANSP EQU 1 Transparent 
ENVERS EQU 2 Invers. 
MODST EQU 3 Et logique 


HOD4O EQU  37C 
MOD8Q EQU 37D 
BINA4 EQU 78 
BIMAIG EQU 37F 
HOPAZ EQU s61 
MOPAI EQU #80 
OVFAZ HEQU se2 
OVPFALl EQU 83 
TOVPAO EQU 384 
TOVPAl EQU 385 
TOVFAZ EQU 386 
TOVPAS EQU 267 
HBLMAS EQU 841 
RBIMA EQU 921 


Kode 40 colonnes 
Mode 80 colonne 
Hitmp 4 couleurs 
Bitmp 16 cou 
Page 2 

Paga 1 
Overlsy page 2 
Ovarlay page 1 
Triple overlay po 
Triple overluy pl 
Triple ovarlay p2 
Triple overlay p3 
BITKAP SPECIAL 
BITMAP STANDARD 








ESC  EQU 418 Eacape 
TER  EQU 300 Tarninateur 
SCOULEUR 

POIR EQU © 

ROUGE  EQU 3 

VERT EQU 2 

JAUNE HQU 3 

BLEU EQU 4 

HAGEBT EQU s Kagenta 
CYAE HQU 8 

BLANC EQU 7 

GRIS EQU 8 

ROSE  EQU © 


VERTC QU sa 
SABLE  EQU sB 
BLEUCL EQU sc 


Vert clair 


Bleu clesir 


000 
o00k 
000F 
0000 
00FF 
SE00 
SEO0 B7 A7AS 
5B03 39 
5EO4 34 0€ 
SBog Ce 00 
5SRO8 103# 
GEOA 66 00 
5BOC BD SE00 
SEOF 35 8e 
SH11 34 0e 
SE13 BD  BFFB 
SE10 66 05 
SB18 BD SEC 
SB1B CC 6B23 
SE1E FD 2165 
sE21 35 6e 
SE23 10F8 2175 
SE27 Sa 63 
SE20 E7 LE 
SE2B 3B 
SR?2C 
SEC 34 7P 
SE25 17 FPD9 
5SES31 17 401F 
SE34 5 0018 
SE37 17 ace 
SE3A 33 FF 
SESC 8D EF 
SE3E BD B00co 
6000 
6000 AA 35 AA 55 
6004 AA 5 AA 55 
6008 00 00 00 06 
@00c 00 00 00 0€ 
6010 CC CC 33 33 
6014 CC CC 33 33 
6018 9DAD 
6O1A 09 
601B 0000 0000 
@01F O13F 00C7 
6023 @pC] 
6025 04 
6026 00 03 00 
6029 OD90 
602B 09 
co2C 0032 0064 
6030 0098 0044 
6034 0D60 
2036 05 
6037 0064 OOFA 
603B 9D99 
603D 05 
6038 0032 0084 
co42 OpDC1 
cO44 C4 
6045 00 01 00 
e048 9D97 
Co04a Op 
C04B 0048 0058 
@04P 0052 0084 
6053 O0FF 6000 
6057 9D67 
6059 op 
a05A 0052 0069 
60SE 0089 0073 


(suite et fin) 


PARMB EQU D 
BLEUCI EQU SE 
ORANGE EFQU SF 


Bleu ciel 


*DRAPEAU 
AVECOU EQU #00 
BABCOU ÆEQU SFr 
ORa 825800 
#Comautation des banques RAM 
BANQ STA GA7AE 
RTS 


Avec couleur 
Saone couleur 


tinitinlisstion ganerale Sous /ASX 
IREXNA FSHS D 
LDB  #RESETC Reset (pas m#/BASIC 


sw12 

LDA #0 BASQUE S e/ BASIC 
JSR BAEQ 

PULS D,PC 


sinitislisetion ganerale SOUS/BASIC 
ANEXMB FSHS D 
JSR SBFFB 
LDA Lil 
JSR BANQ 
LDD #RATRAP 
STD ZPERR 


Comute extra 
BANQUE 5% æ/ BASIC 


PULS  D,FC 
% Rattrapage d'erreur 
RATRAP LDS SAVSTK 
LEAS 3,5 
STB 2,8 
RTI 
ORG Li 


*% POINT D'EMTRER SOUS BASIC 


DBBUT PSHS AB, X,U,Y,DP,CC 
LBSR IREXMA INSXNB <S/BASICD 
LBSR COKB4 KODB BITHAP 4 
LDX #TEO POINTEUR 
LESR ECRIMO TRACE LE DBSSIS 
PULS A B,X,U, TV, DP,CC, PC 


% POLST D'BNTREB BOUS ASSBMBLEUR 
START BSR DBBUT 

STOP 
* DEBUT DB ZOHÆ CONMUTAELE 

ORG s2600€ 


* Motif 2 

HOTIF\ FCB SAA, 395, 3AA. 355 
FCB SAA, 395, SAA, 815 

#* Notif 2 

KOTIF2 FCB #00, 800,300, 800 
FCB #00, 800,800, 300 

* Kotif 3 

ROTIFS FCB acc, SCC, 233,833 


FCB SCC, 4CC, 233,833 
ÉATERDISRSENSENTIÉBILINÉRLESIERIEÉPIÉTER 
TBO FDB FENG Fenetre 

FCB  8+1 

FDB  0,0,319, 100 


FDB TRACE Type de trace 





FCcB 3+1 
FCB HORKAL, JAUNE, AVECOU 

Loc TPLANGS, 0 doopsoco o PRO 
FDB DROIÎTA DROITE ABSOLUE 
FCB eT+1 Fosbre d'octat 
FDB GOT, AOOT, 180T. 1007 
FDB DEOITR DROITE RELATIVE 
FCB a+l Yombre d'octet 
FDB 1007T,250T 
FDB DROITR DEOITE RELATIVE 
FCB LL Fombre d'octet 
FDB SOT, 100T 

.. «Le enssosomrssnte 
FDB  TEACE Type de tra 

« FCB 3+1 

FCB RORXAL, ROUGE, AVECOU 
FDB FBCA RECTAN ABSOLU 


FCB 12T+1 Kosbre d'octet 
FDB T2T, 007. B82T, 132T, PLEIN, MOTIPI 


FDB RECA RECTAN ABSOLU 
FCB 12731 Bowbre d'octet 
FDB B2T. 1057T.1377T,119T, PLEIN, HOTIFL 
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coez 


coes 
6068 
6060 
606D 
6071 
6075 
0077 
6o7e 
607c 
6080 
6084 
evas 
6087 
068 
608F 
6003 
6005 
6006 
600 
600E 


GOA2 
GOA4 
6015 
6049 
eCAD 
60oB1 
coB2 
coBe 
60B7 
<oBB 
608C 
6OBE 
COBF 
60c3 
60c7 
60cB 
60occ 
60D0 
coDi 
é0ops 


60D6 
60Ds 
60D9 
60DD 
601 


G0E3 
G0ES 
60E8 
6069 
cos 
6onc 
GOFO 
cord 
coFs 
60F9 
e0FD 
6OFE 
6102 


6103 
6105 
6108 
G10A 
6108 
8110 


900 


900 
oboz 
9D04 
9D08 


eD08 
GDCA 
9Dp0C 
9008 


oD10 


O0FF 6000 


©D67 

oD 

0048 008A 
0089 0094 
00FF 6000 
©D67 

op 

0048 0004 
0052 0OB2 
00FF 8000 
9D87 

on 

00859 0004 
007F 002 
00FF 6000 
oD67 

op 

0049 0093 
006D OOAB 
00FF 6000 


ODDB 

18 

0068 00D5 
0021 0021 
O0FF 6008 
00 

32 28 52 55 
00 

37 2E 30 50 
00 

2DDB 

18 

0088 00D5 
0017 0017 
0000 6000 
00 

32 28 32 35 
00 

37 25 30 530 
00 


OBAL 

08 

0083 00D5 
9000 9700 
6000 


opC1 

04 

00 02 00 
oDDB 

18 

0084 O0AF 
0050 0068 
0000 8000 
00 

S2 28 32 35 
00 

37 2& 30 30 
00 


SEAL 

08 

000€ OOAF 
Sovo 0700 
6010 

0000 


34 10 
©D 84 
27 08 
AD 01 


6 6a 
30 ee 
20 Fa 
33 90 


Le ME". sn soumrensnse 
FDB RECA RECTAN ABSOLU 
FCB 12741 Bosbre d'octet 

FDB %27T,19067T,197T, 1487, PLEIN, MOTIF I 


FDB RICA RECTAN ABSOLU 
FCB 127T+1 Jowbre d'octat 
FDB 72T.148T,827T, 1787, PLEIN, MOTIF1 


FDB RECA RECTAN ABSOLU 
FCB L2T+*i Roubre d'ootet 
PFDB 137T, 1487, 127T, 1787, PLEIN, KOTIFI 





FDB RBCA RECTAN ABSOLU 
FC3 12741 Sowbre d'octat 
FDB OT, 147T, 1007, 1607, PLEIN. NOTIFL 


hs... Le V0".,,.,. nesnrsss rs 
FDB BLLI ELLIPSE 
FCB 292T+1 Fosbre d'octat 
FDB 1047T.213T,S39T, 337. PLEIN, MOTIF 


FCB Cox 


RCC f2.25/ en radian 


FCB où 

FCC #7,00/ en radian 
FCB 00 

FDB BLLI BLLIPSR 


FCB 23T+1 Ronbre d'octet 
FDB 104T,213T,237T, 237, VIDE, MOTIFA 


FCB COXP 


FCC 72.254 en radien 
PC 00 
RCC #7, 00/ en radian 
FCB 00 
%...,,.Rompliecage du "O",....,..s.sones 


FDB COLRI 
FCB 107T+1 
PDB 131T.213T, 30000,80700, MOTIFL 


Ar rhe JOYALR) -ssssctrs DD neo den 
FDH TRACE Type de trace 
FCB 34: 
FCB  FORMAL, VERT, AVRCOU 
FDB BLLI BLLIPSE 


FCB 23T+1 Fosbrs d'octet 
FDB 1007, 1757, 80T, 1077, VIDB, KÜTIFL 


FCB cop 
FCC /2.23/ en radian 
FCB 00 
FCC #7.00/ en radian 
FCB 06 
%.1«...Ronmplisunge de l'ovale. ,,,:.,,:: 
FEB CoLRI 


FCB 107+1 
FDB 1587,17ST, 80000, 80700, MOTIFS 


FDB 0000 FIs 
IMCLUD O:ROUTIBEN Utilitaires 
RDRENSERÉNSES OUR ÉRRLELSERET ENS SNINENTE 
* ROUTIRES UTILITAIRES * 
RRCNSEÉSÉEESÉSÉSÉERSERENTENMENASEÉÉITIER 
ORG $oD00 
% ELABCRE LE DESSIN POISTE PAR X 
ECRIMO PSHS x 
AR3 TST .X LA FIN 7 
BEQ FAKO out 
JSR C.X++) TRACE UN ELEMEST 


% DU CESSIS 
LDA .X NH, D'OCTETS 
LEAX A, X REV POINTEUR 
BRA ARS 

FIMO PULS x. FC 


* Le code de la routine extramoniteur 
# est contenu dans B 


MESSAG RNB 25T Faserve 25 octets 


39 





TECHNIQUE 





TEOru 
Nc 2 


Le silicium est-il 
1 -un conducteur 
2-uninsolant . 
3 -un semi-conducteur 


A gagner : 
10 logiciels 





9D20 34 04 TRAWOS FEHS L] 














à . x 8 
AE DES PE Appei ia routine : CE CEE JTHAP @ COULEURS 
op2D 8D T8TB Ponte Re ARERRE * -MBBS SONT POLSTEES PAR LE RUGISTRE X 0ES3 54 10 CONBA PS8 ZX 
op28 27 08 BEQ AVI P CHE ODAD 34 54 FEFB PSHS D,U,X 0B5S C6 75 LDB  #BIMAS Mode BITHAP 4 
OD30 8E ©D10 LDX #HESSAG Erreur. Le message ODAF 30 oi LEAX 1x saute n.octets 0E57 20 Là PTS RA3 
% d'erreur eut extrait at uvegarde ©DB1 CE 2145 LDU #1L ler registre 
* dans KESSAO ODB4 CO O4 LDB #a 4 valeurs % COMNUTE LE MODE BITMAP 4 SYHCIAL 
OD3S 1F 08 TFB B,A Jo d'erreur 0DB6 10AB 91 AB LDY s°X+*+ Lectures coordonness OES9 34 04 COMME PENS 56 
oD58 C& 14 LDB #ERRXSC Routine de traite ODB9 10AR C1 BTY sU*+ Ecriture CR5B BD ons JER CON Bitmep 4 standard 
# mnt de l'erreur ODBC SA DBCE Fi 7 OESE C6 41 LDS #RYIRAS Charge le OA 
9237 1037 SvIa ODED 26 F7 Bye ARL Bon 0860 F7 AYDC AR 818 RATDC 
eD30 8D 02 BSR  AFFICH Affichage du mes ODEF 35 Da PÜLS  BU.X,FC 0863 35 864 PULS B,rC 
* mage Re elbes mets We --pr-e 
OD3B 38 64 AVL  FULS BFC % Les porametres du trace sont pointes * RETOUR AU MODE BITMAP STANDARD 
He: 9865 34 04 RRBIXA PSUS DB 
opci 34 14 TRACE PSHS B,x 0867 CO 21 LDB  @RPIMA  Cbarge le OA 
% Afficbe una chaine de caracteres poin- ODC3 30  ©1 LEAX x saute 5,octets vE6o 20 Ps ERA AR 
# tee par X L x 1: 
©D3D 34 14 ArFICU PSHS  B,X FO De | 17 en # COMNUTE LE MODE PAGE 1 
ODS3F E6 80 AFFT LDB + Un caractere de la ODC?7 F7 2140 8TB  TRATYP OE6B sa 10 COPAG1 PEU ZX 
* chaîne 9DCA #6 60 LDB .X+ Couleur DE6D Ce 80 LDB #NOPAL Mode Page 1 
®D41 27 04 BEQ Ava Van zero? ODCC F7 2108 STB COLOR Her 20 07 ERA PAZ 
©D4S SF 03 CALL  FPUTG Non, Alors on affi- ODCF 6 &4 LDB x Drapeau de couleur 
x obe ODD1: F7 2266 STB WITH # COMNUTS LE MODE PAGE 2 
®D45 20 FO BRA AFFL On continue ®DD4 C8  1C LDB #CHOIX Routine CHOIX ©B71 34 10 COPAG2 PSHS X 
OD47 35 04 AVZ  PULS X.B.PC o0D6 ED  oD20 JER  THAMON Appel extramon OH?73 CO 81 LDB  #NOFAZ  Node Page 2 
ODD0 35 04 PULS  X,B,FC 0x?5 20 D BRA  RA3 


% MCRITUPE D'UN RECTANGLE EN RELATIF s.. & 


#* TRACE UNE 








# COMNUTE LE Noa OVERLAY PAOE 1 


























oD4o 34 3e RECR PSHS Y,B,X 9m?7 34 10 COVER1 PSHS 
©D4B 30 O1 LEAX 1,X F. d'octate ©DDB #4 34 BLLI PSHS Ÿ,BX 9E79 CO 63 LDB #OVPAL M.Overlay pagei 
©OD4D ES 09 AZB LDB s,x Drapeau ©DDD 30 O1 LEAX 1.7 #. D'OCTRTE 9E?B 20 CE ERA Az 
OD4F F7 218F STB FILFLO ©DDF 1OAB 81 LDY Le 
©D#2 10A8 00 LDY 6.x Adresse du motif ODB2 10EF 2143 BTY  YYIYT Abeolase du centre # CONNUTE LE MODE OVERLAY PAOB 3 
OD55 31 26 LEAY  6,Y Flus 6 pour poin- ©DES 10AB 61 LDY .Zt+ 9E?D 34 10 COVER2 PSS X 
# -ter aur le "dernier +1” octet ODEO 10BF 311 BIY  ZXXIIX  Ordouves du centre OE?r C6 62 LDB  #OVPA2  K.Overley page 2 
©D5? 1OBF 227D STY KACF ©DBD #6 01 LDB  3,X 9E81 20 CS ERA RA2 
ODSB LOAS 81 LDY .X+4+ Abaciass de l'arrivea ODEF F7  21F0 STB  AXEY Rayon vertical 
ODSE AY 4 LDX ,X Ordonnes de @DF2 H6 03 LOB 3,1 * COIUTE LES MODE BITHAM 16 COULEURS 
DD60 C@ 15 LDB  #BOX Routipe BOX ADF F7 211 STB AXEM  Rayou horizontal DES3 34 10 CONS16 PES ZI 
OD62 BD  DD20 J5R  TRAMOW Appel extramon ODF? £0 06 LDB 6,X 0868 CO 7F LDB  #BINA1G Wode BITHAP 16 
oD6S 35  B4 FULS X,Y,B.PC ODF9 F7 21BF STB RILFLQ Fletn/vide 9897 20 EF BRA raz 
©DFC 10AE 06 LDY 6,1 - 
x BCRITURS D'UN RECTABGLE EM ABSOLU ODFP 31 30 LHAY O,7T % COMTE LS MODE TU OVERLAY PAGE Q 
©8012 10BF 2270 BTY DUC Adresse du motif OB80 34 10 COTROO PSHS X 
OD67 34 34 BECA PSHS ZX,Ÿ,8 3 de remplissage SOB CS 64 LDB  #TOVPAO K.Y.Dverlay PO 
en49 30 01 LEAX 1,X n. d'octata ©B08 56 06 LDB  8.x ©E8n s0 39 BHA  RAZ 
©D6B 1048 61 LDY .X++  Abecisss de depart ©H07 F7?  21F2 STP  CAXMFLO Complet/portion 
ODSE 10EF 3143 STY YYYYY ©B0A 31 00 LEAT  0.X Chaîne ‘angle de # COMNUTE LS MODE TRIPLB OVBRLAY PACE 1 
©D73 10AB 81 LDY .X*+  Ordonnes de depart # depert” SE8r 34 10 COTROL PSHS ZX 
OD7S 10BF 2141 STY  XXNNX oBoC ce 41 LDB #FIB Conversion chaine OHO1 CS 85 LDB  #TOYPAI N.T.Overlay Pi 
©D?9 20 Da BRA  AZE x en reel 2E03 20 33 BRA  RAZ 
©BOE BD  ©D20 JER TRANS Eutramoniteur 
Ronnondobseseéeenese se nunsness tonnes ®811 85  21F3 LDX  SALPHAl Zope memoire da _ # COMAUTS LE MODK TBIFLE OVBRLAY PACS 2 
# ECRITURE D'US POINT x reception JS sa 10 COTADA PSHM ZX 
ni oB14 CO SF LDB  #MOYXP Tranefer FAC-> mem 0507 ce 86 LDB  S#TOVPAS M.T.Overley P2à 
SR EEE ARREN FINE nent (PeEnTes os16 BD  9D20 JSR  YRANOS Bxtramoniteur ©809 20 AD BEA RAI Ni 
Lisa 0819 31 25 LEAY S.Y Chaine "Angle d' 
* arrives" * COMNUTE LE MODF TRIPLE OVSRLAY PACE 3 
Fuel ss rorst Fe HE NA ©H1B CO 41 LDB FI Conversion chaine ©E0B 34 10 COTROS PSHS X 
©D60 AB 4 LDX x Ordonnse + en reel User LDB  ATOVPAS M.T.Overley PS 
oD62 C6 19 LDB  #PSRTIY Routine point SÉSO 8 UEtRT DU TAN on an cuis Lis 
9DS4 BD ©Dz0 JFSR TRANON Appal extramon SERRE 
OD67 35 4 FULS XXE, PC PRES CO Sr Hd 
+: tee ss = Se HE #CIRCLE Carol, 114 EE Fa a 
ss sease Non PUS CAES À is ot à 
+'ESRITURR DURE HROL à OE2A BD  ©D20 SN TRANS Mitremnitour | OEAS 10AN 81 
A Ce parametre OU FOIRE d'art en sont OP2D 35 HA FULS  X,Y.B,FC DEAB 10EF 2143 BTY  YYYY1 Aveciuse Au point 
x pointes par X % CONTE LE MODE pases par 5 DEAC 10AN 81 LDY x++ 
SE +4 DROITE PEAU LE DE2F 18 7C 00 VAL  FCB ESC, MOD4O, TER ©BAF 1087 3141 at XONX  Ordonnes au paint 
©D8E 30 O1 LEAX 1.X euute n.cotets 9E92 34 14 CONOD PSHS X,E She IObE 21 Le 
: 2EB6 10EF 2168 &TY  DHBZON Debut de xove 
OD6D 1045 81 ARE  LDY .X++  Aveciase ©ES4 F7  OE230 BTB VAL Place le mode OEBA 1048 81 LDY x 
@D90 AS 84 LDX 2 Ordonnes 0597 SE OE2F LDX  #VaL Fointeur OEBD 10EF 2105 pur FINZON Five de one 
@D92 CS 1A LDB  #LIBR  Routine LIOWZ ©BSA E6 80 RAL LDB  ,X+ Envois lu chaine 2EC1 10AB 84 LDY x 
©D94 BD  OD20 JSR  TRANOS Appel eztramon 2E3C 27 04 BEQ VAI Fin 7 DÉC 31 28 LEAY 6,7 fdresen du motte 
2D97 35 4 PULE* FC ©BS3E 3F 02 CALL PUTC Bon ©HCe 10Er 227D sTY CP 
oops be nds se homes ve vontueresness 2B40 20 F8 BRrA Rai # F 
* ACRITURE D'UBK DROITE BE ‘’ABSOLU" 0242 55  D4 VAL PULS X.B.FC EH NNTe DE 
£ Lea paramstres deu pointe de depart &t % CONNUTE LE MODE 40 COLONSES DECF 35 Be PULS  X.Y.B.FC 
# d‘arrivee aont poivtes per le registrs CE44 54 10 COX0 PRusg Li 
3 9B46 CS  7C LDB SKODAO Mode 40 colonnes 0000 ED 
GD90 34 34 DROITA PSHE  X,Y,B 0B46 17 FFE?  RA2  LESR  COMID 
OD9B 30 O1 LEAX 1,X saute la 2. octets ©B4B 35 00 FULS  X.PC 
OD0D 1048 81 LDY Us Abacisns de depart 00000 Total Errore 
SDAO 10BF 2183 STY  YYYYY 5 CORKUTE LR MODE 80 COLONTES 
ODA4 10AE 81 LDY .Xè+  Ordonnse de depart 2E4D 34 10 CONSO FSHg ZX 
CDAT I1CEF Zs41 STY XXXXX GRAF CO 7D LDB #KOD80 Hode 60 colapnes 
SDaB 50 60 ERA  ARM vBS1 20 F5 BEA  RA2 
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CODE POSTAL 


Depuis le 23 mai 1972, les bureaux 
de postes distributeurs ont un 
numéro de code postal à cinq 
chiffres. Les deux chiffres de 
auche concernent le département. 
our permettre le tri électronique, 
ce code chiffré est transformé en un 
code à barres. 
Le code se Iit de droite à gauche. 
Normal. Puls ia lettre est censée 
défiler de gauche à droite. Un 
chiffre est codé sur 6 emplacements 
de barre. La première barre est 
obligatoire. C’est la barrre de Start 
(départ). On retrouvera donc une 
barre toutes les six positions (5 fois). 
Les chiffres sont composés de 
combinaisons de trois barres et de 
deux espaces sur cinq positions. 
Ce programme vous montre 
clairement comment ça marche. 
Marc CHARNAY. VOUS ALLEZ UTILISER LE CRAYON OPTIQUE 
11110 NOR E LL 112 LLL 15 ! 1114 
VOU LES VOLE 16 11 SUZ LE OL 18 Lit 19 
POINTEZ LA ZONE POUR PLACER UN BATONNET 


Commencez à droite de la grille.il faut 
placer 3 batonnets à gauche Qu START. 


REGARDEZ LA GRILLE SUIVANTE 


ÆSTART 
€START 
START 
START 
ésSTART 


+ + + + h 

œ œ ps œ œ 

€ € € € € 

5 pa ÿ ü ü 

Lo + + La + 

VOULU OU  BRBEE D ODEET HN 
4 a s 7 


POSTAL | 


VOUIeZ-UCUs Un autre exemple (O/N) 


TT 
à Progranse de sisulation du COLE FUSIA 
L.Copyright Marc CHARNAY E.N,N.A, de LYO 9 ’6/P Terporisation r continuer “:2R$=INPUTS(1):1F AGCIRS)<> 
N 10 FOR T=1 TO 2000:NEXT: RETURN 13 THEN 15 ELSE RETURN 
& CLEAR, , 16: CONSOLEO, 24: CLS: SCREENA, 3, 3: 1 {6 * 
DIM Té(10) {4 *S/P Changesent de page 29 *S/P JIepression des STARTS 
7 GOTO 100 15 LOCATES.24,0:PRINT"Presser ENTREE pou 30 FOR J=t TO B:LOCATE 10+bH1,3#1.021F 


A1 
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<b THEN COLOR2 ELSE COLOR4 

32 PRINTOR$ (J):NEXT J:RETURN 

3" 

39 ’S/P Autre exerple 

40 LOCATEZ, 24,0:PRINT"Voulez-vous un aut 
re exemple (O/N) "::RS=INPUT#(1)21F RK} 
"0" AND R$C)"N" THEN 40 ELSE RETURN 

4”? 

49 * S/P Impression d’un batonnet 

50 LOCATE INT(C/8)+1,12,0: ATTRBO, 1: COLOR 
52 PRINTERS (0) : COLORO: ATTRBO, 0: RETURN 
EL 

59 ? S/P Mini-terporisation 

60 FOR T=1 TO 3O0:NEXT:RETURN 

ELU 

100 BOXF(32,16)-(39,71):BDXF-(63,b4) : BOX 
F1103,23)-(72,16):BOXF-(79,71):BOXF-(103 
,b4):B0XF(79,40)-(95,47) 

105 BOXF(167,23)-(136,18):BOXF-(143,71): 
BOXF-(167,64):BOXF (176,16)-1207,71) : BOXF 
(184,24)-(199,63),-4:BDXF (216,18)-1247,2 
3):E0XF-(1240, 71) >BOXF-1216, 64) : BOXF (220, 
16)-(227,64) 

110 BOXF(2B7,232-(256,16):BOXF-(2b3,71) : 
BOXF-(287, 84) : BOXF (283,40) - (279,47) : BOXF 
(48,151)-(55,98):B0XF-(79, 127): BDXF (56,1 
03)-(71,119).-4:BOXF (BB,96)-(119, 151): BD 
XF(96,104)-(111, 143) ,-4 

115 80XF(159,103)-(128, 96) : BDXF-(135,127 
):BOXF-(159,120) :BOXF-(152, 151): BOXF-(12 
8,144) :BOXF(168,96)-(199,103) :BOXF (180,1 
03)-(187,151) 

120 BOXF(208,94)-1230,103):BOXF-(232, 151 
}:EDXF (208,103)-(215,151) : BOXF (215,120)- 
(232,127): BDXF (248, 96)-(255,151) : BOXF-(2 
79,144) 

125 DEFGR$(0)=0,24,284,24,24,24,24,0:DEF6 
R$(1)=0,0,64.64, 126,64, 64,0: DEFGR$ (2)=0, 
50,76, 72,72,72, 126,0: DEFGER$ (3) 20, 30, 40,7 
2,72,40,30,0:DEF6R$(4)=0,0,64,64,126,64, 
b4,0:DEF6R$ (5) =0,12,82,82,82, 82, 56, O:DEF 
ER$(6)=24,24,24,24,295, 126, 60, 24 

128 DEF6R$(7)=0, 4,6, 295,255, 6,4, 0: DEFGRS 
(8)2255,63,15,3,0,0,0,3:DEFGR$(9)=255, 25 
Sp 2899 29029010, 127, 299: DEFERS(10)=252,2 
54,254,252,248,0,255,280: DEFORS(11)=0, 0, 
0,0,0,0,288,224:DEF6R$(12)=0,0,7,63,255, 
248,3,295:DEFGRS (132=31,295,255,254,192, 
31,299, 255 

129 DEFGR$(14)=255, 295, 240, 7,254,252,288 
240: DEF6R$(15)=252,128,0,0,0,0,0,0 

130 T$(0)=CHR$ (32) +CHR# (32) +6R$ (0) +GR$ 0 
}+6R$ (0) +ERS (0) : TS(L)=CHRS (32) +6R6 (0) +CH 
R$US2)+6R$10)+6RS (0) +6RS (0) 2 T$(2)=CHR$(S 
2)+6R$ (0) +6R$ (0) +CHR$ (32) +GR$ (0) +6R$ (0) 
135 T$(3)=CHR$(32)+6R$ (0) +6R$ (0) +GRS (0) + 
CHR$ (32) +6R$ (0): TS (4)=6RS$ (0)+CHR$ (32) +CH 
R$(32)+6R$ (0) +6R$ (0) +R (0) sT$(5)=ER$ (0) 


er” 


+CHR$ (32) +GR$ (0) +CHRS (32) +6R$ (0) +6RS (0): 
T$(6)=6R$ (0) +CHR$ (32) +6R$ (0) +CR$ (0) +CHR$ 
(32)+6R$ (0) 

140 T$(7)=6R$ (0) +ER$ (0) +CHRS (32) +CHRS (32 
)+6R$(0)+6R$ (0) : THB) =ERS(O)+HRS(0)+CHRS 
(32) +6R$ (0) +CHR& (32) +GR$ (0) : T$ (9) =6R$ (0) 
+6R$(0)+6R$ (0) +CHR$ (32) +CHR$ (32) +6R$ (0) 
145 LOCATES2, 22,0: PRINTERS (8) +BR$ (2) +6R$ 
(10)+6R$ (11): LOCATES1, 23,0: PRINTERS (12)+ 
CRSU13)+6R$(14)+6R$ (15) :GOSUE 19 

200 CLS: SCREEN7, 4, 4:LOCATEE, 2,0: ATTRBO, 1 
:PRINT*DEPARTEMENTS METROPOLITAINS":ATT 
REO, Os PRINT: PRINT 

205 PRINT"Depuis Ie 23 Mai 1972,1es bure 
aux de poste distributeurs ont un nua 
ero de “:PRINT:COLORI,7: PRINT" CODE POST 
AL € 5 chiffres. ":CDLOR7, 4: PRINT 

210 FRINT'Les 2 chiffres de gauche conce 
rnent le departeaent. ":PRINT 

215 FRINT"Pour peraettre le tri electron 
ique,ce code chiffr{t est transforse en 
un code € barres.” 

220 60SUB 15 

250 CLS:SCREEN7, 0,0: ATTREI, 1: LOCATE1E, 1, 

O:PRINT"MENU":ATTRBO, 1 

253 LOCATEO,8,0:PRINT"CODE CHIFFRE "::C0 

LORS: PRINTERS (7) ;:COLOR7: PRINT" CODE BAR 

RE": ATTRBI, L:LOCATES6,B, 0: PRINT"1":ATTRE 

0,1 

260 LOCATEO,12:FRINT"CODE BARRE *::COLOP 

S:PRINTERS (7): :COLOR7: PRINT" CODE CHIFFR 

EH ATTRBA, 1:LOCATES6, 12: PRINT" 2":ATTREO, 


1 

265 LOCATEO, 16: PRINT'FIN DE TRAVAIL" :ATT 
REL, 1:LOCATESE, 16: PRINT"3":ATTREO, 0 

270 LOCATEO,24,0:PRINT"Votre choix : ”;: 
R$=INPUTS (1): IF R$<>"1" AND R#(>"2" AND 

R$C)"3" THEN 270 

273 R=VAL(R#):0N R GOTD 300,400,500 

299 ’Code chiffre en code barre 

300 CLS:PRINT: PRINT" VEUILLEZ ENTRER UN N 
UMERO DE CODE FOSTAL":PRINT" (Nurero à 5 

chiffres) ":LOCATE10, 6,0: INPUT N$ 

305 N=VALIN#):1F N(1000 OR N>95990 OR LE 
NIN#)<25 OR NCINTIN) THEN 300 

310 C$=""2:FOR 1=1 TO 5:C$=CS+MIDS (NS, 6-1] 
à LE NEXT 

315 CLS: SCREENS, 0,0:LOCATES, 12,0: ATTRBO, 
1:FOR J=1 TO 5:CH=VAL(MIDS (CS, 1,1) ):PRIN 
TT$ (CH) 3: NEXT : ATTRBO, 0 

320 FOR 1=0 TO 4:60SUB SO:NEXT 1 

325 LINE(280,120)-(40,120),3:LINE-(47,11 
3),3:LINE(40,120)-(47,127),3 

330 COLOR7:FOR [=1 TO S:LOCATE B+6h(I-1) 
,16:PRINTHIDS (CS, I, 1)2NEXT 

350 GOSUB 40:1F R$=°0" THEN 300 ELSE 250 
399 ’Code barre en code chiffre 

400 CLS:SCREENO, 7,7: LOCATEE, 0,0: PRINT"RE 
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405 BOX(39,87)-(280, 104),2 

410 FOR X=4B TO 272 STEP B:LINE(X.104-{ 
X4108) ,2:NEXT 

415 FOR 1=0 TO 4:FO0R J=1 TO 6:LOCATE 10+ 

6N1,2+9,0:IF J)E THEN COLOR2 ELSE COLOR 

4 

420 PRINTOR$(J)2LOCATE 10+681,12,0:ATTRE 

0,12: COLORS: PRINTGRS (0) : ATTRBO, O:NEXT: NE 
XT:COLORO 

425 LOCATEZ,14,0:PRINT"VOUS ALLEZ UTILIS 

ER LE CRAYON OPTIQUE" 

430 FOR 1=0 TO 4:COLORS5:LOCATE BKI, 16,0: 

PRINTTS (I) :: COLORO:PRINTRIGHTS (STR#(I) 1 
)33NEXT 

432 FOR [=5 TD 9:COLORS:LOCATE 8t(1-5).1 

8,0: PRINTTS(1) ; :COLDRO: PRINTRIGHTS (STR# 
1),1)3:NEXT 

435 LOCATEO,20,0:PRINT'POINTEZ LA ZONE P 

CUR PLACER UN BATONNET":PRINT"Coamencez 

8 droite de la grille. il faut placer 3 b 
atonnets à gauche du START." 

43B CC=0:CP$="" 

440 K=256-48{CC:B$=" 

44t I=1 

445 INPUTPEN CL 

448 IF PTRIG THEN 448 

450 IF X{=C AND C(=X+7 THEN 460 ELSE IF 
X-B{=C AND C€=X-1 THEN 462 ELSE IF X-14€ 

2C AND CK=X-9 THEN 464 ELSE IF X-24(=C À 

ND C€=X-17 THEN 464 ELSE IF X-324=C AND 

Cé=X-25 THEN 468 ELSE 445 

455 1=1+1:1F [C4 THEN 6OSUB 6026070 445 

ELSE 470 

460 B$=LEFTS(BS, 4} +6R$(0):GOSUB 50: G60SUE 
EO:6DTO 455 

462 BS=LEFTS(B$, 3)+6GR$(O)+RIGHTS(B$. 1): 
OSUB S0:605UB 60:60TD 455 

464 B$=LEFT$(B$.2)+BR$ (0) +RIGHTS(B$,2):6 
OSUB S0:60SUE 60:6070 455 

466 B$=LEFTS (ES, 1)+GR$(0)+RIGHTS(B$, 3) :6 
OSUB 50:60SUB 60:60T0 455 

468 B$=6RS(O)+RIGHTS (ES, 4) :COSUE 50:6D5U 
B 60: GOTO 455 

470 B$=B$+GR$(0):FOR J=0 TD 9:IF B$=T$(] 
} THEN CFS=CP$S+RIGHTS (STRS (9), 1): G0T0 47 
2 

471 NEXT J 

472 CC=CC+1:IF CC(5 THEN 440 

473 CONSOLE 16,24: CL: CONSOLE O, 24: LOCATER 
,16,0:PRINT°VOUS AVEZ ECRIT LE CODE":LDC 

ATE1S, 20,0: ATTRB1, 1: PRINTCPS: ATTREO, O 
480 GOSUB 15: CONSOLE 24: CL: CONSOLEO: 60SU 
B 40:IF R$="0" THEN 400 ELSE 250 

499 ’Fin de travail 

900 CLS: SCREENA,3, 32: ATTRB1, L:LOCATE11, 12 
90:PRINT®AU REVOIR®:ATTRBO,O:GOSUB 10:CL 
G:SCREENA, 6, b: END 


REPAIRE 


COURSE À LA VACHE 
TR 1 





C'est un polit jeu d'action dont le 
principe est le suivant : une vache 


ou percutez un mur (aïe !). 

Pour ceux qui veulent modifier 
décor de lai 140, les 0 corres- 
pondent à l'herbe, les espaces 
aux trous et les 2 aux murs. 

Le ramme est écrit en Basic 
LS ne sur les T07/70 et 


Thomas NOËL 


100 CLEARL000, , 8: CLS: SCREEN?, 0, 0:ATTRBL, 
ISLOCATEO, Lis PRINT'P ATIENCE!" 
110 DEFGR#(0)=0,0,0,0,0, 0, 0,255: DEFERS (1 
12295, 255, 255, 255, 255, 126,0, 0 

120 DEFGRS (2=00, 60, 82, 126, 74, 126, 82, 255 
130 DEFGRS(3)=6, 133, 127,254, 124, 38, 64,0 
:DEFGRS(4)=6, 133, 127, 254, 124, 36, 24,0:DEF 
GR$(5)=0, 8, 28, B,8, 82, 127,127 

140 A$="00000000900000000000000000000000 
0020009 000 (000000002020000000000 0000 
0006 0000000000 02000 00002020000020 CO 
0020200000000000000000000000000000000000 
0000000000" 

150 FORI=1TOLEN(AS) : I$=MID$ (AS, 1,1) 

160 IF 1$=" " THEN A$(1)=A#(1)4" ":A$(2) 
2A$(2)+6R$ (1) : GOTD180 

170 A$(LI=AS(L)+GRS (VAL(I$)) :A$(2)=A$ (2 
EUR 

180 NEXTI 

190 GOSUB750: VIE=10: CLS: CONSOLEO, 12: SCRE 
EN, 4: CONSOLE 13,24: SCREEN, 0: CONSOLE 0: SCRE 
EN2,,4 

200 GOSURB10 

se X=1:V=12: N1=0:Y1=12: XX=3 

300 *HAXRILE JEU 

310 FOR 10=1TOV/10:FO0R I=1T0 LEN(A$)-38 
320 1F STRIG(O)THEN GOSUB 460 

340 COLER2, 4: LOCATEO, 12:PRINTMID#(A${1) 
40); 


340 COLOR4,0:LOCATEO, 13: PRINTNIDS(A$(2), 
1,40); 

390 IF SCREEN(X, Y))95THENESO 

360 COLOR?, 4:LOCATEXA, V1:PRINTGRS (0): LOC 
ATEX, Y:COLOR1:FRINTERS XX) 3 CHR$ (20) 

370 XA=XN+12IF XX=5 THEN XX=3 

380 IF STRIG(0) THEN GOSUB 460 

390 IF STICK(0){>0 THEN GOSUE510 

400 FOR 12=1 TO V:NEXTI2:NEXTI:NEXTI0: 60 
101020 

450 *HÉTTESAUT 

460 KI=X:Y1=V: X=X+1:Y=V-1:LOCATEX1, Y1:CD 
LOR2, 4: PRINTGR# (0) :LOCATEX, Y:COLOR1 :PRIN 
TGR# (XX) :FOR12=1TOV: NEXT 

470 X1=X:VI=V:X=X+1:Y=Y+1eLOCATEX I, VI: PR 
INT" ":IF SCREEN(X, V)()9STHEN 650 

400 LOCATEXI,YLsPRINT" ":LOCATEX, Y:PRINT 
GERS (XX): X1=X-1:Y1=12 

490 FORI2=0 TOV:NEXTI2: RETURN 

900 ?HÉTRADEPLACEMENT X 

310 A=STICK(0) 

320 IFA=OTHEN RETURN 

550 X1=X:Y1=Y: ON À GOSUB 560,570, 580, 590 
:400,610,620,630 

340 IFXCOTHENX=OELSEIFX)3BTHENX=38B 

330 RETURN 

560 RETURN 

370 X=X+1:RETURN 

380 X=X+{:RETURN 
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390 X=X+1: RETURN 
600 RETURN 

610 X=X-2:RETURN 
620 X=Y-2:RETURN 
630 Y=X-2:RETURN 
650 ÉÉRÉÉÉIFIN 
660 VIE=VIE-1: PLAY" T404L56D0D0LGDOLSEDOR 
ENLBRELS6REL8DOLSEDOL 8036 104L56D0" 

670 IF Y1=12 THEN COLOR2, 4:LDCATEX1,V1:P 
RINTERS (0) 

680 IF MID$(A$,1+X,1)=" "THEN Y=13:C=4:C 
F=0:FAUTE=1 

690 IF MID$(A$, [+X,1)="2"THEN Y=12:C22:C 
F=4:FAUTE=2 

700 FORI=1T020:LOCATEX, Y:COLORC, CF:PRINT 
GR$ {FAUTE} : PLAY®L301D0": LOCATEX, Ye COLORI 
3 42 PRINTERS (XX) :PLAY"DO":NEXTI 

710 I$=INKEYS:LOCATEX, Y: COLORO, 4: PRINTER 
$(5):LOCATEL0,23:COLORS: PRINT" "VIE"R ": 
IF VIE=OTHEN GOT 1020 

720 IF STRIG(O)THEN FOR [=1 TO 50:BEEP:N 
EXT:60T0 210 ELSE 720 

750 *YHHECHOIX VITESSE 

70 CLS: SCREEN2, 0,0 

770 LOCATE 0,12: INPUT"VITESSE (1,2,3) *; 
Vs CLS: V=V#20 
780 RETURN 
810 RETURN 





TRIBUNE 


“Pleins feux sur DIDAO 


pour une félématique 
éducative” 


DIDAO est en toute discrétion depuis 6 ans filiale de la 
Compagnie Générale Informatique. 

DIDAO, c'est avant tout deux pionniers de la télématique 
qui ont cru avant tout le monde que cette petite boîte qui 
serait dans tous les foyers pouvait devenir autre chose 
qu'un simple outil d'information. Ainsi Jean-Pierre Des- 
cendre, P.-D.G. de la société et Dominique Buet, son 
bras droit, ont, dès 1981, lancé DIDAO dans l'expéri- 
mentation des services télématiques de Vélizy. Vélizy, 
pour ceux qui n'aurait pas suivi toute l'histoire de la 
télématique, fut le lieu de test en vraie grandeur, proposé 
par la Directior! Générale des Télécommunications pour 
expérimenter et valider l'introduction du minitel et de 
ses services dans les foyers francais. 

DIDAO entreprit donc de traduire et d'adapter en fran- 
cais plus de 300 heures d'E.A.O télématique venant de 
l'université de Standford (Etats-Unis) dans des matières 
comme le francais et les mathématiques, du primaire au 
secondaire. 

DIDAO propose en premier lieu des centaines d'heures 
de remise à niveau en mathématique, francais et un 
apprentissage du Basic, tous ces cours sont utilisables 
suivant trois types d'accès : 


— ‘accès par le 36 14 code DIDAO, à une bibliothèque 
de cours suivant un principe d'abonnement qui 
varient entre 200 francs pour 10 heures de remise à 
niveau en mathématique, à 900 francs pour le suivi 
du cours de Basic ; 

— l'accès par le 36 15 code DIDAO, qui permet à tout 
possesseur de minitel d'accéder à l'ensemble des 
didacticiels de la société pour étudier la notion de 
son choix ; 

— l'accès, réservé aux organismes de formation, à 
l'ensemble des cours par in de multiplexeurs, 
machines qui permettent de démultiplier une ligne 


téléphonique spécialisée pour en diriger l'information 
sur plusieurs minitels autonomes. 


Mais DIDAO acquiert réellement ses lettres de noblesses 
avec “Marion et Nicolas” et le CCETT (Centre de recher- 
che des PTT) auteur de la production d'une application 
audiovisuelle interactive destinée aux enfants de 5 a 6 
ans. Ainsi naît en 1985 l'audiovidéographie interactive, 
système de deuxième génération télématique, qui asso- 
cie des séquences sonores à des textes et des images, 
les sons étant stockés et numérisés avec les images sur 
le serveur. 

Le résultat de cette collaboration est remarquable d'au- 
tant plus que le graphisme, réalisé par la societé IMEDIA, 
n'a rien à envier aux meilleurs graphismes sur ordina- 
teurs classiques. DIDAO utilise à nouveau cette techni- 
que avec les mêmes partenaires et la Chambre de 
Commerce et d'Industrie de l'Oise pour la production 
d’une application de formation au marketing. 


DIDAO a participé à DIANE, une production de l'A.D.I., 
pour la réalisation d'un micro serveur évolutif ayant pour 
vocation la gestion de toutes les situations liées a 
l'enseignement dans un établissement scolaire : emplois 
du temps, occupation des classes, gestion des retards 
et absences, suivi des élèves etc. Notons tout de même 
que comparé à de nombreux autres projets autour de 
DIANE, celui de DIDAO a le mérite d'être achevé et 
utilisable tel quel. Le MSE représente ainsi un véritable 
outil au service de la gestion scolaire. 


Pour tous renseignements sur DIDAO et ses activités, 
contactez : DIDAO, 84 rue de Grenelle, 75007 PARIS, 
tél : 45 44 39 21. 


Eric de Kermel 
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Parlez-moi budget 


Tel est le nom du dernier vidéodisque produit par le 
Centre Mondial Informatique pour le sensibilisation des 
agriculteurs à la gestion de leur entreprise. Vidéodisque 
qui donna lieu à un rapport d'évaluation et qui possède 
l'avantage d'être une des références dans le domaine. 
En effet, les éléments constatés et analysés par l'équipe 
de recherche du C.MI révèlent une réelle intégration de 
l'évaluation dans les étapes de production d'une appli- 
cation pédagogique utilisant les nouvelles technologies. 
Espérons seulement que ce type de démarche ne sera 
pas une exception dans un domaine qui souffrait 
DAUERE cruellement d'évaluation et de contrôle quali- 


Renseignements auprés de Michelle Barriere : au 43 55 


NOLPA 


y 

centrale d'achat 

pour l’enseignement privé 

Pour tous ceux qui, de ls ou de loin gravitent autour 
de l'enseignement privé, il existe à Paris une société 


centrale et de prestations en conseil et formation. NOL- 
PA, 78 rue de Sèvres 75006 PARIS, té! : 45 67 43 89 


TEO:N 
No 3 


Quelle instruction permet, 
en Basic, de modifier 
n'importe quel endroit 
de la mémoire vive 
d'un TO7 16K 
à clavier AZERTY ? 
A gagner : 
10 posters 











Erebus 


Ce jeu mène, sans conteste, à l’aventure 
et pas à la moindre puisque tout 
commence par un accident d'avion due à 
une panne moteur. Le héros est 
vulcanologue et le volcan Erebus semble 
bien mystérieux. 

Le froid glace vite le corps et on voit la 
température chuter rapidement surtout 
si l'On ne trouve pas rapidement la 
cabane d'explorateur. Pour tout 
arranger les déplacements se font dans 
un labyrinthe un peu angoissant. Bien 
des fois le héros meurt de froid et il ne 
connaîtra pas la suite des aventures qui 
se déroulent dans plusieurs pays et sur 
plusieurs continents. 

Pour se déplacer it suffit de pointer les 
directions de la rose des vents. Des 
objets divers parsèment le chemin. I! faut 
les prendre, les mettre en poche et les 
sortir au bon moment. Le reste est 
affaire de grande patience et de jugeote. 
Au fait, la chute de l'avion a eu lieu dans 
l'Antarctique et d'après le point de chute 
indiqué, l'avion ne doit pas être très loin 
de la chaîne de la reine Alexandra. Allez, 
un peu de marche dans la neige vous 
donnera des couleurs et puis la suite, des 
sueurs froides. Bonne chance quand 
même. 





Blue War 2 


Nouvelle version d'un jeu déjà célèbre, 
Blue War 2 est un simulateur de combat 
sous-marin. Vous êtes aux commandes 
d'un U79 et vous devez accomplir la 
difficile tâche de couler un maximum de 
navires ennemis tout en évitant les coups. 
Pour vous aider dans cette mission toute 
une série d'aides est prévue. Au Kiosque, 
vous donnez les ordres pour mener la 
chasse, tirer les torpilles, surveiller les 
alentours, plonger ou changer de cap. A 





côté de cela vous disposez d'un radar de 
surface qui devient sonar en plongée. Les 
navires proches sont alors repérés et 


‘vous guidez votre route pour les 


surprendre. 

Sur la carte marine, la position des 
navires ennemis est indiquée mais 
uniquement de jour. Vous suivez la trace 
de votre route sur cette carte. La radio 
enregistre tous les messages de la base 
et vous demandera votre mot de passe 
lorsque vous rentrez. À ces aides 
directes, il faut ajouter le livre de bord 
témoin de vos exploits, le rapport des 
avaries qui visualise tous les dégâts 
causés par les ennemis et par 
vous-même Si VOUS naviguez sans 
précaution, une visualisation des 
silhouettes ennemies pour identifier au 
périscope. 

Des actions d'éclat vous font monter en 
grade et avec un peu de pratique et de 
chance vous finir. amiral. Alors tous 
aux postes de combat pour apprécier le 
nouveau graphisme et s'essayer sans 
grand risque à la guerre sous-marine. 


FREE GAME BLOT 





+ NOUVEAU GRAPHISME) 
{ _ 
Î “Te | ‘1e à: 







pars 
4 - 
NE 7 





Balthazar 


Vous me connaissez sûrement, je 
m'appelle Balthazar. Vous avez déjà dû 
me Voir au détour d'une poubelle ou à la 
sortie d'un bistrot. Je suis comme qui 
dirait la forme moderne de Boudu 
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programmé pour boire et reboire. Je 
dors sous les ponts et vous me réveillez 
pour me faire battre mes records. Je suis 
la flêche, je vais, je reviens toujours prêt 
à étancher une soif infinie. 

Pour m'aider c'est facile, faites-moi 
ramasser les bouteilles qui traînent ou 
bien faites-moi plonger dans une 
poubelle, dernier royaume où finissent 
ces cadavres alcooliques, ces flacons qui 
importent si peu. Je croise le long de mes 
trottoirs des bons et des moins bons. Je 
bois pour oublier et j'ai tellement bu que 
ma force est décuplée, rendant épiques 
mes bagarres avec les autres clochards. 
Les gendarmes m'impressionnent peu 
quand les vapeurs avinées troublent mon 
cerveau. 

Avec un peu d'adresse vous m'aiderez à 
me baisser pour éviter les coups. 
Quelques pièces m'aideront à irriguer 
mon gosier en pente. Je vous fais gagner 
des points. De mes vapeurs alcoolisées 
vous faites des concours, vous faites des 
jeux de mots sur mon nom magique et je 
finis toujours par m'écrouler sur 
l'asphalte ou près du pont où je cuve. 
Pendant mon sommeil la Providence 
remplira les poubelles et je repartirai 
vers mes conquêtes. Grand seigneur, je 
laisse les consignes aux besogneux, 
buveurs sans soif et gueux aux espoirs de 
cage à lapins. Tiens, je bois Un coup à 
votre santé et je vous souhaite bonne 
chance aux commandes de votre truc 
électronique avec ces tableaux 
graphiques et ces flics qui rôdent. 


EH SERVICES 





Maddog 


Enfin un jeu original, sans violence et 
dont le thème est familier et attachant. 
Je suis un chien fou. En fait, ma folie 
c'est la liberté de courrir le long des rues, 
de faire là où j'en ai envie et de ramasser 
ce qui me vient à l'idée. 

Le matin, lorsque le soleil vient de se 
lever, je pars, je saute la barrière et je 
parcours les rues à la recherche d'un os, 
d'une chaussure, d'une boîte de conserve 
ou même d'un cœur. Je sais, mes 
sentiments me perdront. Vous pouvez 
m'aider facilement en me faisant 
ramasser tous ces objets où en me 
faisant attraper ces oiseaux moqueurs. 
Le soleil joue avec les ombres. Tel chien 
est en fait un oiseau. J'avance sans souci 


45 


LOGICIELS 


et mes exploits vous font gagner des 
points et à moi des soleils qui me feront 
connaître d'autres aventures. Je peux 
faire le beau, courir et m’arrêter avec 
une nouvelle idée. 11 ne vous reste qu'à 
me quider vers l'objet dont je rêve et à 
me le faire rapporter à la niche. En cours 
de route je changerai peut-être d'idée 
mais soyez patient vous finirez par 
apprécier la liberté autant que moi. Les 
employés de la fourrière ne m'aiment 
guère et s'ils m'attrapent je finis derrière 
les barreaux, triste destin pour un chien 
fou comme moi. 

N'hésitez pas à jouer avec moi. Vous ne 
serez pas déçu’ et si la nuit tombe parfois 
trop vite, sachez que je rêve aussi d'un 
amour Canin et VOUS verrez mOn Cœur 
monter vers les étoiles. Je vous attends 
pour courir la ville et vous amuser 
réellement loin de la violence et de la 
méchanceté. 
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Yie ar Kung Fu 


Il y a vingt ans, Lee avait mis un terme à 
la terreur que semait le gang des Chop 
Suey. Les bandits avaient été anéantis 
mais un seul subsista le terrible Yen Pei. 
Pour comble de malheur ce brigand est 
devenu empereur et, accompagné de 
sept seigneurs de la guerre, il continue 
ses méfaits sur l'immense territoire 
chinois. Lee avait un fils : Lee Young qu'il 
forma aux arts martiaux et plus encore 
au kung-fu. À cela Lee Young possède 
d’autres techniques efficaces. 

Le jeu va consister à combattre une série 
d’adversaires aux armes redoutables. 
Cela commence par une série de nains 
teigneux qu'il faut passer pour parcourir 
quatre tableaux et arriver à défier Yen 
Pei et sa tresse d'acier. 

Après il y aura notamment Mei Ling et 
ses poignards, Li Jen et ses carreaux 
foudroyants et quelques-uns encore. 
Vous débutez avec trois vies, vous en 
obtenez d'autres par vos succès et votre 


niveau d'énergie diminue avec l'effort. Le 
KO arrive vite même si vous obtenez des 
feuilles de thé pour de l'énergie 
supplémentaire où un bol de Chow Mein. 
Le score est toujours indiqué. Il dépend 
des techniques de combat utilisées et des 
succès. Le graphisme est juste bon pour 
s'amuser quelques heures et la manette 
de jeux est obligatoire. [| y a encore des 
joueurs passionnés par ce type de jeu 
alors ils défendront leur passion à main 
nue. 
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Avenger 


Et cela recommence | Après les 
aventures douloureuses du monde d'Orb, 
voici que Yaemon le Terrible a assassiné 
votre père et s'est emparé des 
parchemins de Ketsuin. 

Mais votre formation aux arts martiaux 
va vous aider à partir à la quête des 
parchemins dont vous savez l'existence 
dans le donjon du désespoir. Pour cela il 
faut d'abord y pénétrer, puis supprimer 
Yeamon et enfin libérer le dieu Kwon (le 
grand). Ce dieu vous aidera s’il est de 
bonne humeur ou bien, offensé, il vous 
laissera sans forces. ’ 
Vous guidez un petit personnage à l'aide 
des touches ou de la manette de jeu pour 
ramasser des clés qui traînent et ouvrent 
les bonnes portes. Des objets utiles sont 
éparpillés, il faut les ramasser dans 
l'ordre prescrit par Kwon (le petit). 

Sur l'écran figurent les nombres : de clés 
ramassées, d'objets ramassés et de 
munitions utilisées. La quête peut durer 
un bon moment d'autant que d'étranges 
créatures viennent perturber la mission. 
Tout cela est agrémenté de découvertes 
de trésors qui vous seront attribués en 
fin de partie. 

Rien de bien extraordinaire ni sur le 
thème ni sur la réalisation graphique. 
Comme pour le Kung-fu ce type de jeu 
d’action possède ses adeptes et je leur 
souhaite bonne chance. 


FIL 
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Magic 


Drame dans la forêt. Le couple tranquille 
de sorciers se sépare, version magique et 
ensorcellée de Kramer contre Kramer. 
La séparation aurait pu bien se passer 
mais non, voilà que le sorcier envoie ses 
lapins contre les lutins de la sorcière. Par 
maléfices interposés la guerre de la 
magie a commencé. Le QG du sorcier est 
un tronc d'arbre que menace un énorme 
rocher, tandis que celui de la sorcière est 
une citrouille dont les lapins seront 
friands. Tout le reste est question de 
stratégie. L'un envoie ses lapins, l’autre 
ses lutins, et voilà d'épiques bagarres qui 
commencent dans la forêt. 

Arrivés chez le sorcier, les lutins 
pousseront le rocher afin qu'il dégringole 
sur le tronc d'arbre, et de l'autre côté de 
la forêt, les lapins dévoreront la citrouille 
avec appétit. Pour corser le tout, des 
sorts sont jetés, version magique de 
l'injure. 

À jouer à deux (disposition assez rare 
dans les jeux proposés par les éditeurs), 
le jeu est amusant voire passionnant. Le 
thème plus qu'original. montre qu'il est 
possible d'imaginer des jeux pour tout 
public sans tomber dans les lieux 
communs de la guerre et de la cruauté. 
Vous passerez Vos nerfs avec ce couple 
maléfique en développant un peu de 
stratégie. C’est parfaitement 
rafraîchissant. 
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Pour rédiger votre annonce, utilisez ce bon ; écrivez très Hsiblement en majuscules. 


Coupon à retoumer 
correctement rempll 
à l'adresse sulvante : 


TEO 
26, rue Beaubourg 
PARIS 75003 





VENDS T107/70 + Basic + 
Lep + Contr. Musique et 
Jeux + 2 manettes + 
Manuels + Ilvres + pro- 
grammes, Prix 2000 F. 
Louls PAOLI 249 av. Jean- 
Jaurès 69007 LYON. 


VENDS : 2 manettes de 
Jeu + Extension musique 
et Jeu (250 F) + Logiclels à 
50 %. Rémy LENAËERT, 105 
rue du Connétable, 60500 
CHANTILLY Tél. le soir: 44 
57 45 76. 


VENDS T07-70, magnéto, 
contrôleur/lecteur de dis- 
quette DO/DF 320 ko, Basic 
1. 0, Basic DOS, Contrêteur 
Joysticks, 2 Quickshoot II, 
nombreux logiciels, livres, 
lIstings, revues, modulateur 
UHF, Mousse. Le tout sous 
garantie. en parfait état. 
Prix à débattre, Téléphoner 
au 86 39 14 40 oprès 19 h. 
Demander Vincent. 


ACHETE magnélo (LEP) 
pour 107 ou TO7/70. 
250F maxi. Tél. 33/65 80 


40. Demander M. Decaen. 


VENDS pour 107-70 et 
MOS, programmes de 
Jeux {en K7) Scrontch (70 
, Inspecteur Gadget (70 
, Les Dieux du stade 1 (70 
, Numéro 10 (90 F,, Véra 
ryz (100 F,, Yéfi (70 F), Pul- 
sar 1 (70 F), Katuvu (50 B 
Microprocesseur (7 4 
Gramme (Es F), Meloptica 
{50 F), Dialogue avec une 
sauterelle (50 F), Un mot 
pour le compte (50 F), Pro- 
gone de Jeux (en car- 
ouceh) TRAP (120 F), Motus 
(100 Fj. VENDS pour tous 
les Thomson Megabus+ 
Côble + 2 manettes 
{Quickchot 1) à un prix 
ossez bas 450 F l'ensem- 
ble. M. Royere François, Les 
Eduens 58000 Nevers. Tél. 
86 36 39 30. Après 18 h, 
Merci d'avance. 


VENDS pour T07 et T07 
70, QDD, disquettes, DOS, 
manuel: 1000 F, Clé pour 
te TO7/70, 100 F, clavier 
re ur TO7, 100 F, 
x81 + Carte son + HRG 
+ Couleur + K7 + Livres + 
Module de chargement. 
Tél. 45 91 09 B6. Jean- 
Marie BESSAGUET, Ecole G. 
Brassens, Trols Palls, 16730 
FLEAC. 


ECHANGE nombreux prog. 
T07/70 sur disk. 5”, Jeux 
et  éducañifs, Danlel 
UNGERN, 8 rue de Caudry, 
ee CAMBRAI. Tél. 27 78 


VENDS MOS, contrôleur, 
manette, lecteur de cas- 
settes, 4 Jeux (Dieux du 
Stade 1, La mine aux dla- 
mants, Air Attack Un mot 
pour le Compte), garantie 
valcble pour plus de 6 
mols. Samir Ikhelef, Sana 
de Bayère Charncy, 69380 
LOZANRE, 78 47 95 67. 


VENDS 107/70, très bon 
état, Basic, Lep, interface 
Péritel, VHF st nécessaire. 2 
800 F. Eric Dubeil, Béchon- 
ee 01370 St-Etienne du 


VENDS 107/70 + Basic 1. 
0 + Lecteur de K7 + Inter- 
face de communication + 
Livres + Programmes: prix 
1900 F à débattre. Vends 
lecteur de disquettes 320 
K prix: 2200 F. Yes MEVEL 
27 rue G. Péri, 91100 VILLA- 
BE, Tél. 60 86 06 74. 


VENDS @DD (TO7 ou MOS) 
Etat neuf avec Vampire, 
Vol Solo, livre du MOS : 750 
F (valeur 1200) vends 
aussi divers jeux sur ROM 
ou cassetes à prix cassés. 
DEMONTOUX, 5 rue Frago- 
nard, 95420 Magny en 
Vexin, Tél. 1/ 34 67 14 62. 


VENDS T07/70 + Basic 1. 
0 + ext. Jeux + Airbus + 
Pulsar I + Minotaure + 
MGV: prix 3200 F à débat- 
tre. VENDS lecteur dis- 
quette 320 ko 51/4 + 
DOS: 3 000 F. Tél. après 19 
h au 42 87 68 61. Hervé 
LAURENT, 60 bd Henri Bar- 
Que 93140 MONTREUIL 
IS. 


VENDS T07/70 + Clavier 
mécanique + TV couleur 
36 cm + 2 paires de 
manettes + extension Jeux 
+ Lep + Basic 1. 0 et 128 
+ logiciels + livres + 
revues {au choix]: 3500 F 
{urgent}. François ZANIER, 1 
av. de l'Hirondelle, 93380 
PIERRERATTE. Tél. 48 21 33 82. 


VENDS logiciels de Jeu 
“Karaté” ei “Dieux du 
stade 2” pour TO® disq. 
{valeur 220 F l'un, vendu 
180 F l'un). Bruno LAFON 
18 bd St-Pierre, 68000 Col- 
mar, 


VENDS ou échange jeux 
pour T07/70 sur K7. Cher- 
che correspondant(e}s sur 
TO7-70. Patrice BONFILOU, 
14 rue Claude Berncrd, 


“sl Jolgny. Tél. 86 62 37 


ECHANGE logiciels (jeux, 
éducalis, eïc.) sur K7 
pour MOS. Bruno Che- 
veau, La Croix Rousse, 
y MARCON. tél. 43 44 


A VENDRE: extension 
télématique pour T07/70 
LH + logiciel) 300 F, 
Li cprès 18 h au 35 30 49 


Vends MOS5 + LEP + 10 
Jeux (Beach-Head, L'Aigle 
d'or.) + crayon optique, 
valeur S3S500F vendu 
2500F.  CRABONNEAUX 
Mathieu, 39100 Dole, tél. 
84821068, 


TO9 isolé de correspon- 
dants mals pas de Jeux 
cherche toute PERSONNE 
pour effectuer des échon- 
ges sur disques ou K7, en 
possède une bonne cin- 
quantalne, SIAUD Christian, 
45 Le Deffrle-Affres, 79230 
Prahecqa, 


Vends 107/70 + Basic + 
lecteur K7 + logiciel Inl- 
tiation + jeux divers (Man- 
dragore, Algle d'or.), 
2700F. Tél. à M.BORE, 
43.55.9485 après 19h. 


Vends LOGICIEL “Las Ve- 
as" sur disquettes 5"1/4 
original) pour TO7/70, 
valeur 260F, vendu 150F, 
état neuf, avec notice. 
BALLOT François, Groupe 
Scolaire, 77770 Chartret- 
tes, tél. 60.69.66.57, 


Achète TÉOPHILE n° 13 (fé- 
vrier 86) + n° 11 (déc. 85) 
10 F chaque. Echange 
Jeux trucs, programmes 
pour MOS5. Réponse assu- 
rée, BUET Willy, 9, rue de lc 
Loire, St-Denis/Loire, 41000 
Blois, tél. 54,74,03.48. 


Vends INTERFACE pour 
robot Fischer, 1 500F + 
Plotter/scanner, 1500 F. 
Polrot Bernard, 43, bld 
Charles-Deguy, 28000 
Chartres. 


Cherche LOGICIEL à 
échangers ou à acheter 
à prix ralsonnable sur dis- 
quette 3°1/2 dans les Yvell- 
nes. MORETTI Franck 59, 
av. de Cresnières, 78650 
Beynes, tél. 34.89.63.61. 


Vends, échange, achète 
LOGICIELS sur K7 et QDD 
pour TO7/70. Choukroun 
Johon, 25, chemin des 
Fralses, Lespennes-Mira- 
beau, 13170 Les Cade- 
neaux, tél. 91.51.27.38,. 


Vends MOS + lecteur 
enregistreur de K7 + 
crayon optique + exten- 
ston son + 2 monettes + 


Jeux, 2000F. Tél. 
70.44.5792 Demonder 
David (Moutlns). 


MOS donne 19 log. com- 
merce + revues + livres 
+ 20 prog. + Ilstings à 
acheteur MOS + LEP + 
cray. + 2 monettes dans 
embal. orig. val. 6000F, 
vendu 1 950 F. DOMENECH 
Yves, lycée polyvalent, 
85301 Challans, tél. 
51.93.0090. 


Urgent, vends MOS + lec- 
teur-enregistreur K7 + 
extension Jeux + 2 manet- 
tes + stylo optique + Dieux 
du Stade + Pictor + cal- 
culs numériques + ongicis 
+ Mandragore. Valeur 
3500F, vendu 3000F. 
Martin Michel, 22 rue Jac- 
ques-d'Auxere, 89300 Jol- 
any. tél. 86.62.00.77. 


VENDS pour 107/70, 2 500 
: contrôleur de disquette 


F: de 

{CU915), deux fois lecteurs 
de disquette (deux fols 
UD90070), disquette Basic, 
DOS, extenslon 128 K, 
VENDS pour T07/70 et TO9, 
800 F : valise logiciels de FIL 
(Incluant cartouche, disk 5”, 
disk 3"1/2, documents), 
Colorcaic, Statistiques, 
Graphique. GARABIOL 
Jean-Louls, 18 bd de lc 


Répubiique, 92420 
VAUCRESSON. Tél. 
474166.16. 


Vends DRIVE sans contrô- 
leur pour Thomson TO7, 
prix 1500F.  BERNARD- 
MOULIN Cyril, Paletle-le- 
Tholonet, 13100 Ak-en- 
Provence, tél. 42.28.9284, 


‘cause erreur, 


PA 


Vends, échange LOGI- 
CIELS pour TO7-107/70- 
MOS5 K7 ou disquette, Tél. 
61.44.87.62. 


Urgent, échange nom- 
breux JEUX pour MOS: 
Sorcery, 3 D Fight, Karaté. 
échange 
jeux TO7/70 contre [Jeux 


MOS. Tél. 77.24,79.32, 


Vds cause double emploi 
T07/70 + crayon optique 
+ monlteur couleur 42 Cm 
+ lecteur-enregistreur K7 
+ ext, musique et Jeux + 2 
monettes + cartouches 
Basic et Pictor, 4000F. Bui- 
sine Stéphone, 9, rue de 
Falemprise, 59310 Orchies, 
tél. 20.71.7445, 


Vds TO7/70 + lecteur 
enregistreur K7 + K7 ini- 
tiaton Bosic, Colorpaint, 
Animatix, nbrx Ilvres jeux 
achat mars 86), prix 
600F, Tél hres repas 
23.79.77.25, 


Vends CASIO PB700, RAM 
15 Ko + Imprimante FA 10 
4 couleurs + mini magné- 
tophone + nombreux 
accessoires, Idéal pour 
débuter, 2500F. LEON 
Francis, 31, route du St- 
Nom, 78260 L'Etang-lc-Vil- 
le, tél, 39.58.47.53. 


Vends T07/70 + Basic 1.0 
et 128 + lecteur de dis- 
quettes 320 K + lect, de 
K7 + 2 contrôleurs (Mhom- 
son et Atari) + 100 Jeux + 
logo + livres, tb.6. prix à 
débattre (le toute séparé). 
Delorme Jean-Cyril, 10, rue 
Ste-Marguerlte, 51000 
Chälon-sur-Marne, té. 
26.21.12,70. 


TO9 cherche contacts 
pour échanger nombreux 
logiciels (eux, utiL). Ecrire à 
GIRARD Wan, 4380 
BONNE ou téléphoner au 
50.39.22.10 (après 19h). 


Vends deux logiciels: 
Minibridge et Question de 
thédtre, 150F les deux. 
Colombatto Stéphane, 24 
cours Lyautey, 64000 Pau, 
tél. 59.30.71.74, 


Vends 07/70 + Basic 128 
+ clavier mécanique + 
contrôleur et lecteur de 
disquette 80 K + moniteur 
monochrome Thomson 31 
cm + nombreux Jeux, prix 
5000F. Tél. après 18h au 
30.31.2152. 


VENDS 107/70, deux drl- 
ves, 80 K + écran mono- 
Chrome, cartouche LOGO, 
utilitaires (cartouche), lec- 
teur-K7, Basic 1.0, livres, 
Jeux (Mandragore, Geste 
d'Arillac, Sortièges), 
extension avec maneîtes, 
Prix : 5000 F. Vochelet 
François, 92 A rue des 
Roslers, 76320 St-Plerre-tés- 
Elbeuf. Tél. 3581.01.09 
{cprès 17 h 30) 


RECHERCHE programme 
Basic de recople d'écran 
sur une Imprimante GP-50 
A. GAIGNEROT R, Le Grand 
Gué, 86380 Vendeuvre- 
du-Poitou. 


Vends TO9 + moniteur 
couleur + 2 lecteurs disks 
8,5 p. + souris + manettes 
+ logiciels (traitement tex- 
te, flchlers, tableur, dessin, 
jeux], sous  garcnile: 
5000F. DRI Stéphane, 69, 
route des Gardes, 92190 
Meudon, tél. 45.07.24.78. 


Je recherche des POSSE- 
SEURS DE MOS pour 
échanges ou cochots. 
CORCUFF Dominique, 6, 
rue Suffren, cité de Ker- 
mac'h, 29128 Tregunc, tél. 
98.97.66.09. 


Recherche pour T07/70 
CONTROLEUR de commu- 
nicatlon pour imprimante 
{CC 90.232]. GALANA Phi- 
llppe. 4 dallée Bernée- 
d'Houville, 93190 Luy-Gar- 
gan, tél. 43.32.1218. 


Cherche LOGICIEL pour 
TO9 sur disquettes 31/2 
dons les Yelines, LE GOFF 
Stéphane, 50, av. de Cres- 
plères, 78650 Beynes, tél. 
34.89.12.20 cprès 17h 30. 


Vénds TO07/70 LEP, exten- 
sion Jeux et manettes, 
Imprimante thermique, 
logiciels et Ilvres, l'ensem- 
ble 2300F, Contacter Flo- 
rent MERY au 45,39.43,91, 
9, villa Brune, 75014 Paris, 


Echange ou vends JEUX 
sur MOS. LEFEVRE Cédric, 
24, rue R.-Dorgeles, 80440 
Boves, tél. 22.09.3025. 


Vends pour T107/70 : livres, 
logiciels éducatifs, pelit 
prix, 0.6. liste sur demon- 
de. Ectire : Latil J.-P, boule- 
vard Raoul-Dufy, 04300 
Forcalquier. 


Cherche pour TO9, T07/ 
70, TO8 sur 3"5 p.,  QDD ou 
K7 : The Way of ihe Tiger, 
Affaire Sydney, Dossier 
Boehraave ef d'autres 
trucs biens et nouveaux. 
Ecrire à Christion Slaud, La 
Deffrle, Alffres, 79230 Pra- 
hecq. 


AFFAIRE : vends MOS, Lep, 


extension musique et 
Jeux, crayon optique, 
extension MOS5 avec QDD, 
logiciel Intégré Jane 
{traitement de texte, fichier, 
fobleur), dizcines de 
logiciels. Pix : 3700 F. REY 
Dominique, 27 rue Gallbert- 
Ferret, 81200 MAZAMET. Tél. 
63.61 0062. 

_ 


VENDS MOS (août 
magnéto K7 + ext. mus 
que 8 Jeux + 2 Joysticks + 
2 manuels + nombreux 
logictels (plus de 20). Avec 
ou sans monteur couleur 
HR, Prix Intéressant. Tél. le 
soir ou 55 78 11 49.. Olivier 
RIBETTE, “Les Mottes”, 87150 
Oradour/Vayres. 


Vends 107 + ext. 16 K + 
cartouche Basic + cartou- 
che Logo + Initiation à 
Logo + Logo manuel réfé- 
rence, prix 1 500F. 
DUBARRY Patrick 5, place 
du Tertre, cldex 3123, 
31180 St-Genis-Bellevue, 
tél, 61.09.69.18. 
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VENDS pour TO9 (dis- 
Quetie Meurtre sur 
.l'Atientique, l'Algle d'Or, 
France Europe et Mon 
général. Prix: 900 F. Man- 
dragore, Ar Attack Les 
dieux du stade, SOS Space, 
Sortilèges. Prix: 1000 F. 
Pour MO5, TO7, TO9 (K7]: 
Vol Salo, Nurnéro 10, Kara- 
té, Micro-Scrabble, Beach 
Head, La planète Incon- 
nue. Prix : 500 F. GUARRIERE 
Bruno, 12 avenue Guy 
Moquet, 94400 Vitry. Tél. 
46.80.5981 (après 19 h}. 


VENDS 107/70, lecteur de 
K7, lecteur de disquette 
{QDD sous garantie), livre 
et progrommes, 18 Jeux 
{cartouche et cassette), 
Vaieur réelle totale 9 570 F 
: cédés à 4000 F. Tél. 
42.880393 ({cprès 18 H) 
{Bouches-du-Rhône). 


VENDS extension féléma- 
tique pour TO7 et 07/70. 
Ensemble complet avec 
cartouche Télétel et notice 
d'utilisation. Prix à débattre. 
PALADOS Jean-Morle, 14 
avenue Maximillen, 94400 
Vitry-sur-Seine. Tél. 
46.82.1669. 


VENDS TOB + LED 3”1/2, 
640 ko + Moniteur cou- 
leur HR + sourls + crayon 
que + Joystick. Prix: 
5000 F. Alain Pontus Tél. 60 
68 93 52 après 18 heures. 


VENDS MOS + Lecteur de 
K7 + manettes de Jeux + 
cube Basic + 2 KK7 de 
jeux. Le tout évalué à 3 500 
F neuf, vendus 2200 F (jo- 
mails servi). Victor 
GAUTHIER, 5 rue Blanchet, 
94700 MAISONS ALFORT, 
tél, 43 76 21 14. 


LOGICIEL de ma fabrica- 
tion, TO8-TO9-T09+, mon- 
trant une partitlon musica- 
le, Un repère se déplace 
pour Indiquer le tempo, 
avec commentaires, sur 
disg. , 35 F sur K7: 20 F. 
André Siaud, 45 place de 
le Deffre, Alffres, 79230 
PRAHECQ. 


VENDS r Thomson lec- 
teurs disquettes + con- 
trôleur + 2 disquettes + 
livre (3000 F. Imprimante 
impact PR 90080 avec cor- 
don et contrôleur de 
comm (3 200 F}. Nombreux 
lives et logiciels. Frank Dutil- 
Tone 23 83 22 26 (après 


CHERCHE à échanger 
Aigle d'Or et Pulsar |! (orl- 
ginaux) contre Jeux. THO- 
MAS Pierre, 10 rue Blaise 
de Vigenère, 03500 St- 
Pourçain-sur-Sloute. Tél. 
70.459200. 


VENDS MOS5, Lecteur de 
K7, Megabus avec rac- 
cord, Mandrogore, Mission 
pas possible, Soleil - Noir, 
Meurtre à grande vitesse, 
Aïr Attack, Dieux du stade. 
(tous origincux. Prix à 
débattre. PROVOST Nico- 
los, 53 rue de Montreuil, 
75011 PARIS. Tél. 
43.72.02.72. 


A8 





PA 


MATERIEL et LIVRES Infor- 
matiques : lecteur de dis- 
quette Thomson 320 K 
avec les DOS pour MO5 et 
TO7 + 2 disquettes de Jeux 
Bldut et do et Paulo), 
prix divers 
manuels pour TO7 et MO5 
à moitié prix. Téléphoner 
o) 33.298355 ({Alencon 
61). 


Vends extension télémail- 
que pour TO7 et 107/70 et 
livres sur TO7, le tout pour 
600F. Téléphoner au 
46.82.1669. 


Vends pour TOB, 109 ou 
T09+ sur 3,5 p. les origl- 
naux de Bractron et MGT 
+ Beach Head, James 
Debug, Runway Il Asterix 
pour 350F où échanges 
Bactron et MGT contre 2 
autres originaus. Christian 
Slaud, La Defferle, Alfres, 
79230 Prahecq, 


Vends Iclels pour TO8 
et TO9+ (Mission très spé- 
cicle, L'Affoire Sydney, 
MGT, Bactron, Les Caver- 
nes de Thénébé, Super 
Tennis, Carte du Clel}, état 
neuf, réponse contre 
enveloppe timbrée. Melle 
GAUDRY Fablenne, 4, cllée 
Komarov, 92000 Nanterre. 


Vends TO7/70 + Moniteur 
couleur + manette + LEP, 
+ 2 logiciels + livres, prix 
3 500F. Lecteur de QDD + 
le + 2 QD, prix 650F. 
Tél. Fabrice BERTRAND: 
24.42.02.25. 


Vends MOS clav. méca. 
+ LEP + pu coul. + 
crayon + log. + Jeux + 
livres, FE neuf, à saisir. (1) 


Vends MO5 + LEP + 26 
Jeux + crayon optique + 
Hi r Jeux ef muslque 
RUE + livres, valeur 
ë 700F vendu 2900F. Ere- 
seo Nicolcs, 40 chemine- 
ment Letintoret, appt 60, 
3110 Toulouse, tél. 
61.44.2196. 
lecteur 


Vends MOS + 
enregistreur K7 + exten- 
sion Jeux et son + 2 manet- 
tes + nombreux program- 
mes + Crayon optique, prix 
à débaitre. Tél. 71.50.43.18 
après 20h. 


Téléphone entre 19 et 
20h pour échange de 
logiciels et piratage. 
43.39.64.16. 


Vends 07/70 + mangéto 
+ livre, 1500F. Vends 
Hector 2 HR + magnéto 
incorporé + manette de 
Jeux + 
livres, 1500F. Marinier 
Claude, Mas Ricaud Rous- 
soir, 30340 Saïndres, tél. 
66.8587.16. 


Hs iciels pour 107, 
MOS, Didactimaths (5°), 
res Belin. Voleur 180 
F, vendu 100 F. Jeu Lorann, 
valeur 245 F, vendu 150 F. 
DERIVE Nicole, 16 Impasse 
Cardet, 94800 VILLEJUF. 
Tél. 47.26.90.04. 





programme +: 


Vends T07/70 + clavier 
mécanique + extension 
mémoire 64 K + manettes 
de Jeu et interface + con- 
trôleur et cable d'impri- 
monte + extenslon Incrus- 
tation, prix à débattre. 
Deretz Jean-Claude, 8, rue 
du Four-du-Gué, 95590 
Presnes, tél, 30.34.0232. 


Vends TO7/70, très bon 
état + mémo 7 Basic 1.0 
+ lecteur enregistreur de 
programme + interface 
musique et jeux + 
manette “Quickshot I + 
nombreux logiciels (cas- 
settes) + nombreux livres : 
Bosic, Assembleur, revues, 
Jeux, le tout pour 5000F 
{Vateur réelle 6 :000F). Tél. 
63.94.6449 (seulement le 
week-end). 


Vends TO9 + moniteur 
couleur + souris + 1 
manette + clavier neuf + 
10 jeux (5° Axe, Chopiif- 
ter...), + 6 revues, tb.6. prix 
5 000F. Tél. 47.98.72.07. 


Vends 107 + 16 K + lect. 
K7 + manettes de Jeu + 
11 logiclels et d'autres pro- 
grammes. Le tout 2000F. 
Laurent FOUQUET, Ecole 
Raymond Dorey, 71700 
Toumu, tél. 85.51.00.64. 


Vends lecteur DSK 320 K 
+ DOS MOS et TOY, 
1900F, nombreux livres 
Thomson, moitié prix. 
Té1.33.29.83.66. 


Vends pour MOS : Pulsar 11 
(60F}, Eliminator (60F), 
Crocky 2 (60F, Hipper 
(60F), L'Algle d'or (100F), 
Empire (100F), Space Shut- 
te simulcter (100F), Laby- 
rinthe survie (50F), Inspec- 
teur (50F. NOLF 
François, 15, allée Mau- 
rice-Barrès, 59200 Tour- 
coing, tél. 20.46.52.10. 


VENDS T07-70 + Basic 1. 
0 + 1 extension “Musique 
et Jeux” (1 contrôleur + 2 
manettes) + 1 contrôleur 
de communication et son 
cêôble (nécessaires pour 
connecteur une Impri- 
mante) + 2 livres {1 micro- 
cpplication + manuel de 
référence Basic} + 30 logl- 
clels du commerce. Le jot 
complet : 3000 FF. Contac- 
ter Frank Victoden 1251 
route de Niort à Alffres, 
79230 PRAHECQ. Tél, 49 32 
06 88. 


VENDS 5 logiciels pour 
MOS ie tout : 600 F (Meur- 
tres sur l'Alantique, le 
Cube Informotique, Gemil- 
nl, Les Dieux du stade n°2, 
Mandragore. Vends pour 
MOS5: lecteur-enregistreur 
300 F, nouveau Crayon 
optique 90 F. 


VENDS 107/70, état neuf, 
Basic, 3 cartouches 
{Trap, Miner 4025, Choplif- 
ter), 2 manettes de Jeux, 
crayon optique, 4 livres (2 
initiation, 2 programma- 
tlon). Prix: 4200 F. Yannick 
PERRET, 59 rue des Gran- 

es, 01780 St Denis en 

ugey. Tél. 74 38 45 15. 
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Vends pour MOS Crocky II 
(Pacnan), 100F et 1 car- 
touche Pictor, 350F, KAMP 
Christophe, 32, rue de la 
Libération, 77250 Veneux- 
Leu-Esablons, tél, 60,70. 
49.36. 


Echange ou vends pour 
MOS Jeux coples : Numéro 
10, Tennis, 5° Axe, Sortilège, 
Lorann, Green Beret, Vom- 
pire, Minotaure:  80F. 
HUYGHE Christophe, Allée 
des Tilleuls, 59470 Worm- 
hout, tél. 28.62.88.28. 


Vendons LOGICIELS K7 
pour Thomson: Numéro 
10 (110F), Carte de France 
(80F, Un mot pour le 
compte (80F, Planète 
Inconnue (100 de Blochoï 
180F), Saplens (130 F), JO. 
2 n°1 (130F), possibilités 
de lots. DUREL Xavier et 
François, 7 bis av. de la 
République, 94600 Cholsy- 
le-Roi, tél. 48.52.49,58, 


Vends MONITEUR Thomson 
vert MB09831, haute réso- 
lution, garantie Jusqu'en 
décembre 1987 + cordon 
CV 0421 VI, à débattre, mis 
en vente 1 OOGF. WEISSE 
Danlel, côté Canal du 
Moulin, place St-Pierre, 
54110  Rosières, Tél. 
83.45.30.70. 


Vends T07/70, clavier 
mécanique, cartouche 
Basic, lecteur de 7 as 
sion musique et Jeux, 2 

manettes, livres, logiciels, 
état neuf, le tout 2000F. 
HAMEUN Patrick 14, rue de 
la Varenne, 78200 Mantes- 
la-Viile, tél. 30.92.,69.24. 


A saisir: 107 + 16 K + 
Basic, prix 1000F: con- 
trôleur (CD 90 015) + lec- 
teur disques (CD 90 070), 
1O00F; contrôleur com- 
munication + cêûble + 
Imprimante (PR 90080), 
1 200F. LACROIX Francis, 
22, rue R-Polncaré, 33100 
Bordeaux, tél. 56.86.18.49. 


A SAISIR MOS5 + LEP + 
Ext. musique + Quick 
Shot 2 + CC et côûble 
imprimonte + livres + très 
nombreux logiciels (+ 100) 
pour 2500 F. Jullo GERAL- 
DO. Tél. 1.30 93 49 10, 


CHERCHE le logiciel Sorti- 
lèges en K7 ou disquette 
pour 107-70 à échanger 
contre d'outres logicleis 
supers! Conctacter Chris- 
tophe Barnet au 61 44 87 
62 cprès 18 h ou à 
l'adresse: 4 place Des- 
Chomps, 31100 Toulouse. 


VENDS TO9 avec écran 
couleur HR + magnéto + 
2e lecteur 3,5” + monettes 
+ 7 Jeux (dt Blitz}. A débat- 
tre 6500 F. Patrice LAM- 
BERT, Francornwille. Tél. 34 
14 60 O1. 


VENDS ou échange logl- 
ciels 107/70, MOS, Man- 
dragore, Vol Solo, Karaté, 
Los Vegas, Green Beret, 
Phonemic. Prix à voir. 
Demonder Syivain cu 46 
08 55 51, Boulogne Bt. 


Cherche POSSESSEURS de 
TO9 +, achète Aigle d'Or, 
Les Dieux du Stade Il 
Bsach-Head, Spesdway, 
pour un prix cllant, si posst- 
ble, de 50 à 120F, Je vous 
en remercie. MARY Sté- 
phone, 3, cilée de le Meu- 
llère, 78130 Coignières, tél. 
30.62 86.79. 


Vends Thomson T07/70 + 
Basic 1.0 + LEP + nom- 
breux Jeux, le tout 2500 F. 
SIMONET Michaël, 1, route 
de Verdun, 5511 0’ Doul- 
con, tél. 29.80.96.28. 


VENDS TO7/70 + clavier 
mécanique + 2 drives + 
Iso programmes sur disq. 
feux éducatifs, utiit} + 
ex. son et Jeux + ext. 
comm. + Bosic + Carac- 
tor 2 + Assembleur + doc, 
Très bon état: 4 500 F. Eric 
ÉATTROWIEN tél. 21 73 77 


VDS IBMPC XT 20 000 F 
geo Jusqu'en fév. 87 

56 K ext 640. Disque dur 
10 mega floppy 360 K, 
monochr. clavier FR + Nbx 
logiciels (Dbase 3 plus, 
Symphony, Word 2, etc. 
GLEVAREC G. Tél. 39 56 7 
73, ch, 121. 


VENDS MOS clavier 
mécanique + LEP + 
Crayon optique + 1 
monette avec interface + 
Agle d'Or, Sortilèges, Thé- 
saurus, Lorannn, Collseum, 
Le tout: 2000 F. Pascal 
PETREMANN, 14 rue Frédé- 
rc Passy 93330 Neullly/ 
Marne. Tél. 43 08 06 34, 


ACHETE d'occasion, K7 
langage LOGO pour T07/ 
70. Katherine Marmorat, 50 
rue des Roses, 69100 VIL- 
FM Tél. 72 33 63 


VDS 107/70 + LEP + QDD 
+ Basic 1. 0 + Cube 
Basic + Colorpaint + 
Meurtres sur l'Atlantique + 
4 grds hits en disq. + 10 
disa. verges + 4 livres. Prix : 
4000 F. Fabien BONAVTA, 
Nice, tél. 93 53 10 78. 


109 cherche contact 
pour des jeux. S'adresser 
à Arnaud BROUSSIN, 47 rue 
Blanqui, 93400 ST OUEN. Tél 
42 55 67 12. 


VENDS Contrôleur de 
communication 300 F. 
Deux manettes Jeux + 
extension 250 F. Log. sur 
cassette, Mandragore 
O7/70) 140 F, It l'intrus 60 
, Plymouth Newport 60 F. 
Gilles Balron, tél. 77 61 62 
73. 


VENDS T07/70 + moniteur 
Couleur + Lecteur dis- 
quettes + Basc + Livres. Le 
tout pour 5000 F. Prix à 
débattre (sous garantie), 
Contacter: Raphael 
Roséo, tél, 39 35 07 85. 
95330 Domont. 


VENDS MOS + Lep + Con- 
trôleur  maneties + 
crayon optique + Jeux + 
Revues + Livres: 2 600 F. 
Tél. 27 80 06 66. 


Turbo-Prolog 


Une introduction à 
l'intelligence Artificielle 


P. BIHAN 


Prolog a déjà beaucoup fait parler de lui. 
D'abord confidentiel ce langage s’est vite 
imposé aprés les décisions des Japonais 
pour leur projet d'ordinateur de 
cinquième génération. Prolog c'est la 
découverte à la fois des mécanismes de la 
logique et des nouveaux concepts de 
programmation déclarative. || reste au 
programmeur à déclarer et faire 
rechercher dans un ensemble d'objets et 
de leurs relations. 

Cet ouvrage est l’un des premiers 
consacré à Turbo-Prolog, version 
nouvelle de Borland déjà célèbre pour 
son Pascal. Dans le livre on découvre en 
introduction quelques rares pages sur la 
mise en œuvre du Turbo-Prolog mais 
surtout les concepts généraux sur le 
langage. Dans la première partie la 
création et l'interrogation d'une base de 
faits sont présentées avec l'apprentissage 
des notions de faits, de clauses, de règles 
et les mécanismes délicats de récursivité 
et de retour arrière. Quelques petits 
exemples illustrent les points principaux. 
La seconde partie est Un peu plus 
complexe et s'intéresse aux traitements 
des listes, aux chaînes de caractères, à la 
gestion de fichiers et aux caractéristiques 
des graphiques et des fenêtres sur 
Turbo-Prolog. C'est également dans 
cette partie qu'est abordée certains 
aspects de la programmation modulaire. 
Plusieurs applications sont proposées 
pour terminer. On y retrouve les 
exemples classiques de détermination de 
chemin, de diététique mais aussi un 
programme de planification PERT. Ce 
livre est un complément de la 
documentation fournie avec 
Turbo-Prolog et ajoute des éléments 
pédagogiques indispensables à une 
maîtrise avancée de cet important 
langage. 


EYROLLES, 150 F 





Mathématiques, 
physique 


ef Basic 
Th. ROBIN 


Pour tous les fondus d'informatique 
appliquée aux mathématiques, voici un 
petit ouvrage qui rassemble 35 
problèmes scientifiques résolus avec le 
Basic. On trouve d'abord quelques 
rappels sur l'ordinateur et la 
programmation en Basic des 
algorithmes, puis une deuxième partie 
consacrée à l'analyse numérique. Dans 
cette deuxième partie sont abordés, 
entre autres, la résolution des systèmes 
linéaires, la recherche des solutions d'une 
fonction, quelques aspects des équations 
différentielles et les équations aux 
dérivées partielles. Une série d'annexes 
précise quelques points comme le calcul 
des intégrales ou celui de pi par 
différentes séries. La dernière partie 
rassemble une trentaine d’exercies qui 
utilisent les notions présentées. On 
trouvera aussi bien des problèmes 
d'optimisation que des courbes de Ph ou 
des inversions de matrice. En fin de livre, 
quelques pages consacrées aux 
attracteurs étranges et aux courbes de 
Julia illustrent des notions sur les 
problèmes non linéaires. Pour chaque 
exercice un court exposé du problème 
posé précède un listing en Basic et des 
exemples illustratifs. On peut espérer 
que pour des élèves de terminales 
scientifiques ou des premières années 
universitaires ce livre apportera des 
exemples directs de programmation de 
leurs cours de maths ou de physique. 


ELLIPSES 


ATRÉMATQUES 

| PHYSIQUE | 
ET BAS 

25 pr 


sortfiquefs 
obIÈMEE  matique 


Seolus par 





L’orfhographe 

à l’heure 

de l'informatique 
J.C. LALLIAS et A. DELGADO 


L'orthographie, c'est écrire les mots 
correctement, c'est-à-dire selon les 
règles et les usages traditionnels de la 
langue. Mais que devient l'orthographe à 
l'heure de l'informatique donc d'une 
nouvelle façon de conserver l'écrit ? À 
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cette question répond en partie ce livre 
qui se veut un tour d'horizon sur la 
question de l'orthographe et de ses 
rapports avec l'informatique. 1! est vrai 
que le problème est vaste car dès 
maintenant peut se poser la question de 
l'utilité de l'orthographe, du moins de sa 
connaissance profonde, à l'heure où des 
programmes supervisent et corrigent 
l'écriture et où des icônes remplacent les 
mots. Dans la première partie du livre 
une présentation, très inspirée des 
travaux de A. Catach, nous fait prévaloir 
la notion de graphème sur celle de lettre 
et nous montre que la “complexité de 
notre langue écrite est gérable“. De là, la 
seconde partie de l'ouvrage où sont 
montrées, recensées, classifiées les 
applications de l'informatique à 
Forthographe, Principalement détaillée, 
la base Orthobase 6000 est largement 
décrite. Après cela quelques éléments sur 
les techniques de l'intelligence artificieile 
appliquées à l'orthographe puis la 
présentation rapide d'un classement de 
logiciels d'enseignement de 
l'orthographe. Une série d'annexes 
termine le livre. On y trouve aussi bien 
les graphèmes liés à l'oral, la liste des 
verbes les plus fréquents où encore une 
typologie des erreurs orthographiques. 
Ce livre est réellement spécialisé, peu 
accessible aux non-spécialistes et 
sûrement léger en informatique. 


CEDIC NATHAN, 115 F 





Logo dans 


l’espace 
H. REGGINI 


Et voilà la tortue qui décolle | Décidée à 
ne plus rester à terre pour tracer 
d'innombrables maisons et arbres voilà 
la célèbre tortue de Logo qui nous fait 
partager ses évolutions spatiales. Logo 
est un superbe outil de créativité et dans 
ce livre on découvre que le domaine 
tridimensionnel est aussi un lieu de 
créativité au sens où l'utilisateur 
retrouve son espace familier et la 
possibilité de donner une dynamique aux 
formes créées. Pour cela il faut d'abord 
avoir une tortue tridimensionnelle et la 
doter de commandes dans l'espace et sur 
le plan. Ensuite le livre nous propose une 
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série de vingt-deux études où seront 
réalisés plusieurs objets comme la lampe, 
l'immeuble, le moulin à vent, la bicyclette 
ou encore les engrenages. La 
construction de la bicyclette est d'ailleurs 
très représentative du but du livre. Il faut 
construire les pièces puis les monter et 
enfin montrer l'objet selon les 
déplacements des pédales ou du guidon 
et selon les axes de roulis et de tanguage. 
Une fois réalisée, cette forme est 
superbe. En annexe on trouve les 
procédures de manipulation de la tortue 
tridimensionnelle en version Logoplus. 
Ce livre est passionnant. Il mérite une 
lecture attentive et la découverte des 
objets en trois dimensions doit être 
guidée. C'est une forme d'introduction à 
la CAO, à l'architecture et à toutes les 
activités qui utilisent des représentations 
spatiales. En somme, une dimension 
supplémentaire à Logo. 


CEDIC-NATHAN, 115 F 





Pratique des 
MS-DOS ef PC-DOS 


H, LILEN 


Voici la deuxième édition d'un ouvrage 
bien connu sur le système d'exploitation 
du PC et des Compatibles. Destiné à des 
débutants, ce livre fait découvrir très 
progressivement tous les aspects du 
DOS. Ils apprendront le rôle du Système 
d'exploitation, la notion de fichiers, la 
mise en marche d'une version nationale, 
l'organisation des disquettes, leur 
préparation et leur exploitation. Ils 
découvriront aussi les différentes 
commandes du DOS, l'usage du disque 
dur, l'exploitation de l'imprimante et la 
manipulation d'Edlin l'éditeur de lignes 
de texte fourni avec le DOS. Un chapitre 
a été consacré à dix questions que 
l'utilisateur peut se poser et dont la 
réponse n'est pas immédiate à la lecture 
de la documentation. On apprend ainsi 
comment créer Un menu, comment 
continuer à exploiter l'ordinateur durant 
une impression ou encore comment 
afficher les noms de répertoire. L'un des 
grands intérêts de ce livre est sa clarté, 
renforcée par des illustrations bien 
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commentées et des annexes fort utiles. 
Parmi les nombreux livres sur le DOS des 
PC, celui-ci est bien placé pour les 
débutants notamment. 


EDITIONS RADIO, 160 F 





Les secrets 
de Mulfiplan 


H. THIRIEZ 


Sans aucun doute possible, Multiplan est 
devenu le tableur le plus utilisé et, à voir 
la littérature qui lui est consacrée, on 
devine qu'il s'agit maintenant d'un outil 
d'usage courant. Mais il apparaît que 
seule une part de ses possibilités est 
exploitée. Dans cet ouvrage, H. THIRIEZ 
montre comment utiliser au mieux 
Multiplan. A la lecture on s'aperçoit vite 
que l'auteur est tout à fait spécialiste du 
produit et que ses conseils, ses trucs et 
ses exemples sont bien utiles. Il s'agit 
donc d'un livre d'expérience 
représentatif des problèmes posés par 
l'usage du tableur. Pour bien profiter des 
“secrets” il faut être d'abord largement 
familier de Multiplan. À partir de là on 
appréciera les conseils sur l'itération, les 
diverses manières de ventiler, les 
transpositions, les représentations 
graphiques et les macro-instructions. À 
cela il faut ajouter la maîtrise de 
l'impression (sur PC et MACINTOSH) et 
surtout un chapitre consacré à l'audit des 
tableaux. Il est en effet souvent oublié 
que la critique d'une solution retenue est 
une phase importante du développement. 
Quelques conseils et astuces sont donnés 
pour améliorer les tableaux. En résumé 
beaucoup d'expérience et de trucs à 
découvrir et à utiliser pour passer à une 
utilisation très performante de Multiplan. 


CEDIC-NATHAN, 210 F 
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Apprendre 
Mulfiplan 2 


J.P. BRACHOT et B. FONTANEL 


Une importante littérature est désormais 
publiée sur Multiplan et l'utilisateur doit 
pouvoir y trouver profit. Cependant bien 
des ouvrages traitent d'applications 
précises et précieuses. Ce livre présente 
lui un indéniable caractère de formation 
qui devrait satisfaire largement la 
curiosité des débutants. Ce livre est le 
résultat d'une bonne expérience de 
formation qui transparaît par la 
simplicité et la clarté des présentations et 
des exemples. Ce gros manuel (plus de 
500 pages) est partagé en cinq parties 
qui présentent d'abord l'environnement 
de Multiplan (matériel, DOS et la mise en 
route de Multiplan 2), puis les 
commandes présentées, classées avec les 
différents niveaux d'écrans. La troisième 
partie recense toutes les fonctions mises 
à disposition avec leur syntaxe et leurs 
effets détaillés. Ces trois premières 
parties forment l'aspect référence du 
manuel. La quatrième partie du livre 
reprend de façon très détaillée et 
largement illustrée d'exemples les 
principales opérations auxquelles sont 
confrontés les utilisateurs et ceci par les 
présentations des principes généraux, de 
la commande utilisée et des procédures à 
suivre. La dernière partie présente les 
macro-instructions (séquences de codes 
programmées) qui permettent d'éviter 
des frappes fastidieuses et répétées de 
commandes. Plusieurs exemples 
illustrent parfaitement cette nouvelle 
fonctionnalité de Multiplan. Celui qui 
désire s'initier efficacement à Multiplan 
trouvera dans ce manuel tous les 
éléments d'une excellente formation avec 
ensuite un livre de référence bien 
présenté et très agréable à utiliser. Ce 
livre devrait devenir une excellente 
référence dans le genre. 


CEDIC NATHAN 





GAGNEZ L'AVENTURE... 





L'assassin connaissait certainemant bien 
sa victime. Le meurtre a été commis avec 
minutie. Pourquoi Mr SYDNEY a-t-il été 
assassiné ? et par qui ? Un graphisme 
exceptionnel pour une affaire à suspense. 
(Disponible sur Amstrad, Thomson, MSX, 
Commodore, K7, D.) 


RTATT rare 


BEN AN PAQUET 









EE ge GAGNEZ L'AVENTURE 
= | N F O G R A M E S F TV Pour recevoir de plus amples informations, Cochez la case du logiciel qui vous intéresse le plus : 
5 Fr ne envoyez le bon ci-joint : D que ur d 
ES [=] il erhaave 
: __e Ps. IN NOM : nur. PTÉNOM : D 
D Héritage 2 
79, rue Hippolyte-Kahn 69109 Villeurbanne - Tél. 78.03.18,46 FAO CR 2e CDS te Un tirage au sort peut vous le faire gagner. 








l'aventure a 
du monde... 


utour ”: 





à Paris. 





dure vie de chien. …. 01 œ 
Vous pourrez recevoir ces logiciels directement chez vous en nous adressant un chèque à l’ordre de 
TITUS, 163 avenue des Arts 93370 MONTFERMEIL - 
Tarifs : K7 : 180 F, Disk : 240 F, EREBUS QODD : 270 F. 
& TITUS 163, AVENUE DES ARTS - 93370 MONTFERMEIL 


